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000000 



000000 046543 



. DSABL GBL 

Copyright (c) 1976, 1977, 1978, 1979, 1980, 1981, 1982, 1983, 1984, 1985. 

S&H Computer Systems, Inc. 
Nashville, Tennessee 

Written by Phil Sh err od. 

The routines in this module perform management 

functions such as recuru (block) locking for shared files. 

. CSECT TSLOCK 
Macro calls 

. MCALL . ADDR 
Global definitions 

. OLOBL DCCSI.Z, TSLOCK 

Oiobnl references 

. <5L0BL LSTATE, LPR 1 .. ENOTL 

. GLOBL FC*CHN, FC*FDB, F-C*FLK 

. GLOBL FC*CLK, FC*LBN, FL*ACT, FC*UN. FC*ACC, FL*SPN 

. GLOBL DCTRD, DCCRD, FLh^NDC, IOWAIT, DC*BLK, DCTWR 

. GLOBL DCCWR, DCTOTU, VALADW, DC AGE, NUMCDB 

. GLOBL FF*FID, FF$CDB, FF*FWD, FF*FLK 

. GLOBL FW*DBN, FW*UN, FW*WLK, VMXSF, VMXSFC, NLINES 

. GLOBL VMLBLK, EMTBLK, CORUSR, CHNADR, VNUMDC, DC**SZ 

. GLOBL JCDB, CHNNUM, NUMDCD, LOKCSH 

. GLOBL FC*LBN, FF**SZ, FW*$SZ, DC*NXT, DC*PAR 

. GLOBL LDBASE, LOKMEM, VPAR5, DC*FDB, DC*USE, DC*LNK 

. GLOBL CHKABT, QHIPRI , QNSPND, S*SFWT 

. GLOBL FL*EFL, FT$EFL, FF$NLB, FF*FLG, FC*FLG 

. GLOBL FF*DCD 

. GLOBL LDDEVX, LDPDEV 

. GLOBL C. CSW, C. SBLK, C. DEVQ 

. GLOBL CS*OPN, SETERR, EMTXIT, KPAR5, FC**SS, FC*NLB, CS*NMX 

Macro to map kernel par 5 to a specified region 

. MACRO MAPTO BASE 
MOV BASE, @#KPAR^> 
. ENDM MAPTO 

; Module header. Must be first data in segment. 
TSLOCK: . RAD50 /LOK/ i System overlay region ID name 

Table of offsets to entry points in this module 
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; Define symbols for returned error codes 
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Shared file open access protection t«sbie. 
Access-Drotection enable flaos: 
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000047 


377 




35 


000050 


365 




36 


000051 


375 




37 


000052 


360 




38 


000053 


374 




39 








40 








41 








42 








43 


000054 


000000 


000000 


44 


000060 


000000 


000000 


45 


000064 


000000 


000000 


46 


000070 


000000 


000000 


47 


000074 


000000 


000000 


48 


000100 


000000 




49 


000102 


000000 




50 


000104 


000000 




51 








52 








53 








54 


000106 


000000 




55 


000110 


000000 





AC*SU 
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1 
2 
4 

•I J'K 
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40 



i Shared update 
■ Shared input 
j Protected update 
/Protected input 
; Exclusive update 
^Exclusive input 



Format of access code pai>i»ed from user to us; 

Bit : o===> input. l-~> update. 

Bits 1-2: 0==> Exclusive, 

i—=y Protected, 

2==> Shared. 

Bit 8 1==> Suppress data caching. 

Table to convert user access code into AC* access bits. 



Exclusive input 
Exclusive update 
Protected input 
Protected update 
Shared input 
Shared update 



ACCBIT: 


BYTE 


AC*EI 




. BYTE 


AC*EU 






AC$PI 




. BYTE 


AC*PU 




. BYTE 


AC*SI 




. BYTE 


AC*SU 



Table of access exclusion masks. 
<Bit set implies that access type 



is denied) 



AC OMSK: 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
EVEN 



•"■'C<0> i Exclusive input 

•^C<0> /Exclusive update 

•'■•C<AC*PI+AC*SI> i Protected input 

•■■•C<AC*SI> i Protected update 

^C<AC$PI+AC*PU+AC*SI+AC*SU> ; Shared update 
•■■C<:AC*SI+AC*SU:> j shared update 



Data structure list heads 

Head of free FDB list 

Head of active FDB list 

Head of free CDB list 

Head of free wait element list 

Head of list of data cache descriptors 

Block being read or written 

Address of user's buffer 

Number of words being read or written 

d file ID for file to which record locking operation is being directed 

jDevice index in low byte, unit # high byte 
; starting block number of file on phys device 



FFFREE 


. WORD 
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FFHEAD 


. WORD 
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FCFRFF 


. WORD 


Q, 





FWFREE 


. WORD 


0. 
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. WORD 


0, 





CBLOCK 


WORD 







CBUF: 


. WORD 







CWORDS 


. WORD 
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jrd file 
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. WORD 









. WORD 
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OOOOOOG 

000002G 

000272 



177644 
1 77642 
OOOOOOG 
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000002G 
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LOKINI is called during system initialization to initialize the 
record iockinq data base. 



LOKINI: MOV 
MOV 
MOV 

I ILJ V 

MOV 
MOV 



R 1 , - ( SP ) 
R2, -<SP) 
R3, -<SP) 
R4, -<SP) 
R5, -<SP) 
@#KPAR5, -(SP) 



Initialize pointer to data mrea 



MOV #VPAR5, R4 
MOV e#LOKMEM, R5 



J Get virtual addr to use to access data 
i Get physical 64-byte blk # of data area 



Allocate space for ujait queue elements 



t •«■ 



?*: 



MOV 


#FW**S2, Rl 


MOV 


R4, FWFREE 


MOV 


R5, FWFREE+2 


MOV 


#NLINES-1, RO 


BEQ 


2* 


CALL 


ALLOCL 


MOV 


R4, FW*WLK(R2) 


MOV 


R5, FW*WLK+2<R2) 


SOB 


RO, 1* 


CALL 


ALLOC 



Allocate FOB tables 



4*: 



3«: 



MOV 


R4, FFFREE 


MOV 


R5, FFFREE+2 


MOV 


#FF**SZ,R1 


MOV 


@#VMXSF> RO 


DEC 


RO 


BLE 


3* 


CALL 


ALLOCL 


MOV 


R4, FF*FLK(R2) 


MOV 


R5, FF*FLK+2<R2) 


SOB 


RO, 4* 


CALL 


ALLOC 



Allocate CDB tables 



6*: 



MOV 


R4, FCFREE 


MOV 


R5, FCFREE+2 


MOV 


@#VMLBLK, Rl 


ASL 


Rl 


ADD 


#FC*LBN, Rl 


MOV 


e#VMXSFC, RO 


DEC 


RO 


BLE 


5« 


CALL 


ALLOCL 


MOV 


R4, FC*CLK(R2> 


MOV 


R5, FC*CLK+2<R2) 



i Get size of a wait queue element 
ilnit head of free list 

i Get # elements to allocate - 1 
:- Bt if only one element to allocate 
; Allocate space for an element 
jMake previous one point to new one 

; Loop if more to allocate 
;Allocate last one 



Set pointer to 1st free FOB 

Get size of each entry 

Get # to allocate 

Minus one 

Br if only one manted 

Allocate space 

Make previous point to new one 

; Loop if more to allocate 
> Allocate space for last one 



Set pointer to 1st free one 

Get max # blocks each chan can lock 

Reserve two bytes per locked block 

Add space needed by rest of entry 

Get # to allocate 

Minus one 

Br if only one wanted 

Allocate space 

Make previous entry point to new one 
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59 000322 

60 

61 

62 

63 000326 

64 000332 

65 000334 

66 000340 

67 000344 

68 000350 

69 000352 

70 000354 

71 000360 

72 000364 

73 000370 

74 000372 
75 

76 
77 

78 000376 

79 000402 

80 000406 

81 000412 

82 000416 

83 000422 

84 000426 

85 000432 

86 000436 
87 

88 
89 

90 000440 

91 000444 

92 000446 

93 000450 

94 000452 

95 000454 

96 000456 



004767 000150 



013700 
001442 
010467 

012701 
005300 
003407 
004767 
010462 
010562 
077007 
004767 



016704 
016705 
013701 

010164 
062701 
016405 
016404 
001365 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 

177534 
177532 
0000000 



000100 

OOOOOOG 

000002G 

000100 



177472 
177470 
0000000 

OOOOOOt.: 
000010 
000002G 
OOOOOOG 



OOOOOOG 



5*: 



CALL 



ALLOC 



i_oop It more ■CO ai locaxe 



Allocate space for last one 



Allocate data cache descriDtors 



'*: 



8$; 



MOV 


©#VNUMDC, RO 


BEQ 


20* 


MOV 


R4, DCDBAS 


MOV 


R5, DCDBAS+2 


MOV 


#BC$*SZ,R1 


DEC 


RO 


BLE 


8$ 


CALL 


ALLOCL 


MOV 


R4, DC*NXT<R2) 


MOV 


R5, DC*NXT+2<R2) 


SOB 


RO, 7* 


CALL 


ALLOC 



i Get # DCD's wanted 

.: Br if shared file data caching not wanted 

; Set pointer to Ist DCD 

J Get size of data cache descriptor block 

;Get 1 less DCD 

i Br if only 1 wanted 

i Allocate space for a DCD 

jMake previous entry point to new one 



^Allocate last one 



Set up pointers to data cache buffers 



9*; 



20*: 





MOV 


DCDBAS, R4 




MOV 


DCDBAS+2, H;> 




MOV 


@#LOKCSH. R,t 




MAP TO 


R5 




MOV 


Rl, BC^PARCM) 




ADD 


#512. /64. , HI 




MOV 


DC*NXT+2(R4), 




MOV 


DC*NXT(R4>,R4 




BNE 


9* 


Fini 


shed 






MOV 


<SP)+, S#KPAR5 




MOV 


(SP)+, R5 




MOV 


<SP)+, R4 




MOV 


(SP)+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





; Get pointer to Ist DCD 

; Get par value for start of area 
; Map to next DCD 
;Set pointer to cache buffer 
i Point to next 512-byte buffer 
j Get pointer to next DCD 

; Br if more to allocate 
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000460 



000460 01 0400 
000462 010503 



000464 004767 000006 



000470 



32 000474 000207 



Save the pointer to a current list element> allocate and new elements 
and set mapping to point to the previous element. 

Inputs: 
Rl = Size of element to allocate 
R4, R5 = Pointer to current element 

n 1 1 +: n 1 1 +• c: ■ 

■"' " " f •■' ^ — ■ 

R4> R5 = Pointer to new element 

R2, R3 = Pointer to previous element 

Happing is set up to access previous element 

All registers are preserved. 

ALLOCL: 

Save pointer to current element 

; Save pointer to current element 



MOV 
MOV 



R4, R2 
R5, R3 



Allaciate a netu eitsmenl 
CALL. ALLOC 



iAiiocate a new element 



Set mapping to previous t.-lement 



MAP TO R3 
Finished 

RETURN 



i Map to previous element 
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010246 




17 
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19 








20 


000500 


010102 




21 


000502 


006202 




22 


000504 






23 


000510 


005024 




24 


000512 


077202 




25 








26 
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28 


000514 


020427 


017644G 


29 


000520 


101412 




30 








31 
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000522 


162704 


OOOOOOG 


34 


000526 


010402 




35 


000530 


072227 


177772 


36 


000534 


060205 




37 


000536 


0427.04 


177700 
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000542 


062704 


OOOOOOG 
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41 
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000546 


012602 




43 


000550 


000207 





Allocate space for a list element. 

AdjuEt both the virtual and physical address pointers to keep the 

virtual address within the par 5 region. 

Inputs: 
Rl = Size of element to allocate (bytes) 
R4 = Virtual address where we are to start allocation 
R5 - Physical address where we ars to start allocation 

Outputs: 
R4 = New virtual addres>fe 
R5 -■ New physical adcirtM.!> 
All registers are preservtHl. 

ALLOC: MOV R2, -(SP) 

Zero the space we are allocating 

i Get # bytes to allocate 
> Get # words to allocate 
j Map to area we are allocating 

; Zero the area 



lli- 



MOV 


Rl, R2 


ASR 


R2 


MAP TO 


K5 


CLR 


(R4) + 


SOB 


R2, 1* 



If we are getting too near the end of the par 5 region* reset phys addr 



CMP R4, #VPAR5+SJ00. 

BLOS 9* 



; Are we getting near end of par 5 region? 
i Br if not 



We must advance physical address and reset virtual address 

/Remove par 5 virtual address bias 

; Get virtual address within 8Kb region 

; Get # blocks allocated within region 

i Advance physical base address 

i Leave only by te~wi thin-block virtual addr 

;Rebias virtual address 



9^: 



SUB 


#VPAR5, R4 


MOV 


R4, R2 


ASH 


#-6/ R2 


ADD 


R2>R5 


BIC 


#"C<77>, R4 


ADD 


#VPAR5, R4 


Finished 




MOV 


<SP)+, R2 


RETURN 
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The DOOPAP entry point is the newer form of the shared file open EMT 
which functions like the simple shared file open except it also 
supports an access protection code stored in the 2nd word of the 
EMT argument block. See comments at the front of this module for 
a description of the format of the access codes. 

Format of the EMT argument block: 

. BYTE Chan, 125 

. WORD access code 



000552 013701 0000020 
000556 000402 



DOOPAP: MOV @#EMTBLK+2, Rl 
BR OPNCOM 



; Get access code 

i Enter common open code 
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i 

< 

I 

€ 

I 

c 



i 
i 



( 
I 

i 

t 
I 
I 
€ 
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au ! ! L. UUt-Uf^lM 



Ei'lT to open channel to shared file 



2 
3 
4 
5 
6 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 
•->=; 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



This (obsolete) form of the shared file open EMT does not provide for 
an access code so shared uodate access is assumed. 



000560 012701 000005 



DOCOPN: MOV 



#5, Rl 



J Get shared update access code 



Enter common open code. Rl = Open access code. 

See if this channel is alreiady opened to a shared file. 



000564 004767 003564 
000570 103402 



OPNCOM: CALL 
BCS 



FNDCDB 
1* 



i Is channel opened to a shared file? 
> Br if not 



000572 004767 003110 



000576 013700 0000000 

000602 032760 0000000 OOOOOOw 

000610 001004 



000612 012700 000001 
000616 000137 OOOOOOG 



This channel is already opened to a shared file. 
Close channel before reopen:!ng, 

CALL CLSCDB i Close shared file channel 

Make sure a .LOOKUP or .ENTER has been done to a file. 



1*: 



MOV 

B I r 
BWE 



Error 



@#CHNADRi RO ; Point to channel descriptor block 
#CS*OPN. C CBW<R<>n Has this channel been openedV 

2* ; Br i f y e s 

Channel is not upen to a file. 



MOV 
JMP 



#EC1, RO 
@#SETERR 



Return error code 1 



Channel is open to a filt^. 

Try to get a free Channel Descriptor Block <CDB). 



000622 016704 177236 

000626 001004 

000630 012700 000002 

000634 000137 OOOOOOG 

000640 016705 177222 

000644 005337 0000000 

000650 

000654 016467 OOOOOOG 177202 

000662 016467 000002G 177176 



i Point to free CDB 

i Br if there is a free CDB 

i Error 2 if no free CDB's 



000670 004767 001076 



000674 004767 003546 
000700 103051 



2*: MOV FCFREE, R4 

BNE 3* 

MOV #EC2, RO 

JMP S#SETERR 

3*: MOV FCFREE+2, R5 ; Get PAR pointer 

DEC @#NUMCDB ; One fewer free CDB's 

MAPTO R5 iMap to the CDB 

MOV FC*CLK(R4),FCFREE i Set new free list pointer 

MOV FC*CLK+2(R4), FCFREE+2 i New free-list PAR pointer 

; We have a free CDB (virtual address in R4* PAR pointer in R5>. 
; Add this CDB to the list of CDB's for this job and init the CDB. 

CALL INICDB i Initialize the CDB 

i Search for FOB for file being opened 



CALL 
BCC 



FNDFDB 
4* 



i Try to locate FDB for file 
; Br if found the FDB 



File is not currently opened (as a shared file.l. 
Try to find a free FDB. 



000702 016702 177146 
000706 001006 



MOV 
BNE 



FFFREE, R2 

5* 



i Is there a free FDB' 
i Br if yes 



I 
f 

i 



i 

€ 

f 

i 
i 
i 
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( 
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i 
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( 
I 

c 
i 
f 
I 

i 
I 
I 

< 

i 
< 

i 



59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 

ai 

82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 

•• rvn 
J. \Je£. 

103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 



1 nfe'i'G 3"Pc no ■pp'BB F DB ' s 



000710 
000714 
000720 



004767 
012700 
000137 



002772 
000003 
0000000 



CALL 

MOV 

JMP 



CLSCDB 
#EC3, RO 
€l#SETERR 



Release the CDB we got for the channel 
Return error 3 



000724 
000730 
000734 
000742 
000750 
000752 
000756 
000760 



000762 
000770 
000776 
00 1 005 



001006 
001014 
001022 



016267 
016267 
010201 
012700 
005021 
077002 



016762 
016762 

010267 
01036 ' 



016762 
016762 
000417 



001024 
001030 
001032 
001036 
001040 
001044 



001046 
001052 
001056 



004767 
103406 
005737 
001411 
004767 
000406 



004767 
012700 
000137 



There is a free FDB. 






016703 177126 



5$: 



0000000 177112 
000002G 177106 

OOOOOOC 



7$: 



MOV 

MAP TO 

MOV 

MOV 

MOV 

MOV 

CLR 

SOB 



FFFREE+2, R3 
R3 



iOet PAR pointer to FDB 
; Map to the new F'DB 

FF*FLK(R2),FFFREE , Remove FDB frcn free list 
FF*FLK+2 ( R2 ) , FFFREE+2 



R2, Rl 

#FF**SZ/2. RO 
( R 1 ) +■ 
RO. 7* 



Get virtual address of FDB 
Get # words to zero 
Zero the entire FDB 



177072 OOOOOOG 
177066 0OO002G 

J. / / W w* U^ 

i 77054 



177074 
1 77070 



OOOOOOG 
000002G 



4*: 



OOOOOOG 
004662 



Add the new FDB to the linked list of active FDB's 

MOV FFHEAD, FF*FLKa<2)> Add FDB to active list 

MOV FFHEAD+2, FF$FLK+2(R2) 

MOV R2. FFHEAD i Put new fDU at head of active list 

MOV R3, FFHEA3)-*-!.' 

Initialize the FDB 

MOV CURFID, FF*FID<R2)i Set dev # in low byte> unit # in high byte 
MOV CURFID+2, FF*FID+2(R2)i Set starting block number for file 
BR 8* 

An FDB already exists for this file. 

See if access protection set by other users allows us to 

access the file. 

See if we can access this file 

Br if access is not allowed 

Are we doing data caching? 

Br if not 

Flush ail data cache entries for file 



CALL 


CHKACC 


BCS 


10* 


TST 


e#NUMDCD 


BEQ 


S« 


CALL 


CLSDCD 


BR 


8$ 



002634 
000004 
OOOOOOG 



10*: 



Error: Access protection disallows our access to this file. 

; Release the CDB we got 
i Return error code 4 



CALL 


CLSCDB 


MOV 


#EC4. RO 


vJMP 


e#SETERR 



001062 
001066 
001072 
001076 
001102 



Accf^ss to the file is allowed. 

Make linkage connections between CDB and FDB. 



8*: 



016200 
016201 
010462 
010562 



OOOOOOG 
000002G 
OOOOOOG 
000002G 



MAP TO 

MOV 

MOV 

MOV 

MOV 



R3 .:Map to FDB 

FF*CDB(R2), RO J Get pointer to current CDB at head of list 

FF*CDB+2<R2), Rl 

R4, FF*CDB<R2) ; Set new CDB as head of list for file 

R5. FF*CDB+2(R2) 



c 
< 
I 
f 
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I 
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i 

I 
I 
I 

I 

< 

t 
I 
f 
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1 X D UU 1 1 UO 

116 001112 

117 001116 
lis 001122 
119 001126 
120 

121 
122 
123 



010064 
010164 
010264 
010364 



OOOOOOG 
000002G 
OOOOOOG 
000002G 



00113c 



000137 OOOOOOG 



riHr ! u K3 i nap t;o our \.uii 

MOV RO, FC*FLK<R4) ;Make neu) CDB point to old CDB list head 

MOV R 1 , FC$FLK+2 ( R4 ) 

MOV R2, FC«FDB(R4) iMake CDB point to FDB 

MOV R3. FC*FDB+2<R4> 

Finished opening the file 

JMP @#EMTXIT 



I 

I 

f 

I 

I 

c 



f 
t 

f 
< 

I 

i 
I 
I 
f 
I 
< 
I 



I 

f 



I < 



I 
f 
t 

i 
I 
I 
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* 
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2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 



This routine is called when a .SAVESTATUS EMT is executed. 

It checks to see if the channel is currently opened to a shared file 

and if so marks the CDB for the channel as suspended. 



001136 
001140 
001142 



001152 



010446 
010546 
013746 



r\r\ a,-} L.-7 
103405 



0000009 



%./ v.r %*/ e^ w 6m 



SFSVST: MOV 
MOV 
MOV 



R4, -<SF) 
R5, -<SP) 
€#KPAR5, 



See if this channel is currently opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



j See if channel is opened to a shared file 
i Br if not 



Channel is opened to a shared file. 
Mark CDB as suspended. 



001154 
001160 



001166 
001172 
001174 
001176 



152764 OOOOOOG OOOOOOG 



MAPTO 
BISB 



012637 
012605 
012604 
000207 



)00000G 



91i; 



Finished 

MOV 

MOV 
MOV 



RETURN 



R5 ; Map to the CDB 

#FL*SPIM, FC*PLG<R4) ;Mark CDB as suspended 



vSP)+, 2#KPAHL/ 
(SP)+, R5 
<SP)+, R4 



f 



i 
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I 
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I 
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010246 
010346 
010446 
010546 
013746 OOOOOOG 



004767 003226 
103466 
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1 
2 
3 
4 
5 

6 001200 

7 001202 
S 001204 
9 001206 

10 001210 

11 

12 

13 

14 001214 

15 001220 
16 

17 
IS 
19 
20 

21 001222 

22 001226 

23 001232 

24 001236 
001240 
001244 

27 001250 

28 001256 

29 001260 

30 001264 

31 001266 

32 001274 

33 001276 

34 001302 

35 001306 
36 

37 
38 
39 
40 

41 001310 

42 001314 

43 001320 

44 001324 

45 001330 

46 001336 

47 001340 

48 001344 

49 001346 

50 001352 

51 001356 
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. SBTTL SFRSST 



tnt to reopen a channel <. REOPEN) 



This routine is called when a .REOPEN EMT is executed, 
if the file being reopen Pfi is a shared file. 



It checks to see 



SFRSST: MOV 
MOV 
MOV 
MOV 
MOV 



R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -(SP) 
@#KPAR5, ■ 



See if an FDB exists for the file being reopened 



CALL 
BCS 



FNDFDB 
9* 



j Search for an FDB for this file 
; Br if no FDB 



25 
26 



016204 
016205 
001457 

113700 

132764 
001407 
120064 
001004 
123764 
001435 
016405 
016404 
001356 



000000(5 
0000020 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

000002G 
OOOOOOG 



1*: 



?*: 



We found an FDB for the file. 

First check to see if there is a suspended CDB for this user that has 

the same channel number as channel being reopened. 

to the FDB 

virtual address of Ist CDB for file 

par mapping for Ist CDB 
if no CDB's for file (should never happen) 

current job index number 

to the CDB 
Is this a suspended CDB? 
if not 

this CDB for this user? 
if not 

J Does the channel number match? 
if yes — We found the suspended CDB 

par mapping for next CDB 



MAP TO 


R3 i Map 


MOV 


FF*CDB(R2). R4 ; Get 


MOV 


FF*CDB+2<R2), R5 ; Get 


BE(i 


9« ;Br 


MOVE 


@#CORUSR,RO ;Get 


MAP TO 


R5 ; Map 


BITB 


#FL*SPN. FC*FLG ( R4 ) i 


BEQ 


2* ; Br 


CMPB 


RO, FC*UN(R4) i Is 


BNE 


2* : Br 


CMPB 


@#CHNNUM, FC*CHN(R4) 


BEQ 


6* iBr 


MOV 


FC*FLK+2(R4),R5 > Get 


MOV 


FC*FLK(R4),R4 i Get 


BNE 


1* i Loo 



virtual address of next CDB 
; Loop if another CDB to check 

We could not find a suspended CDB with a matching channel number. 
See if uje can find any suspended CDB (in case user is reopening with 
a different channel than originally used). 



3<=: 

53 

54 

55 001360 

56 

57 



016204 
016205 

132764 
001403 
120064 
001406 
016405 
016404 
00 1 362 



000406 



OOOOOOG 
000002G 

OOOOOOG OOOOOOG 

OOOOOOG 

000002G 
OOOOOOG 



4«: 



5«: 



MAP TO 

MOV 

MOV 

MAPTO 

BITB 

BEQ 

CMPB 

BEQ 

MOV 

MOV 

BNE 



R3 ;Map 

FF*CDB(R2),R4 ; Get 
FF*CDB+2(R2),R5 i Get 
R5 ;Map 



to the FDB 
virtual address 
par mapping for 
to the CDB 



of Ist CDB 
1st CDB 



for file 



#FL*SPN, FCi|iFLG(R4) 

5* 

RO, FC*UN(R4) 

3* 

FC*FLK+2(R4), R5 

FC*FLK(R4), R4 

4* 



i Is 



this a suspended CDB? 
Br if not 

Is this CDB for this user? 
Br if yes — Use this CDB 
Get par mapping for next CDB 
Get virtual address of next CDB 
Loop if another CDB to check 



The file being reopened is not a shared file for this user 
BR 9* 
i The file being reopened is a shared file for this user 



c 
c 
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f 

i 
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58 










i 


59 


001362 


113764 


OOOOOOG 


OOOOOOG 


3*: 


60 


001370 


142764 


0000000 


OOOOOOG 


6*: 


61 










> 


62 










i 


63 










i 


64 


001376 


012637 


OOOOOOG 




9$: 


65 


001402 


012605 








66 


001404 


012604 








67 


001406 


012603 








68 


001410 


012602 








69 


001412 


000207 









MOVE 
BICB 

Finished 

MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



@#CHNNUM, FC$CHN<R4)» Set channel number in CDB 
#FL*SPN, FC*FLG<R4) ; Say CDB no longer suspended 



(SP)+, @#KPAR5 
(SP)+,R5 
(SP)+, R4 
(SP)+, R3 
<SP)+, R2 



i 
f 
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001414 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 001414 

11 001420 
12 

13 
14 

15 001422 

16 001426 
17 

18 
19 
20 

21 001432 

22 001436 
23 

24 
25 

26 001440 

27 001444 

28 001446 

29 001450 

30 001452 
31 

32 
33 
34 

35 001456 

36 001462 
37 

38 
39 
40 001464 



004767 002734 
103004 



012700 000001 
000137 0000000 



013701 000002G 
005201 



004767 000636 

103007 

005700 

00 1 402 

000137 OOOOOOG 



004767 001260 
000763 



000137 OOOOOOG 



aa ! ! i_ i>UKi_>*. 



tn ! vo iocK a diock ujitn waiT 



This routine is called when an EMT is executed which requests that 

a block be locked and the job suspended if the block is already locked. 



DORLK: 

; See if this channel is opened to a shared file 



BCC 



FNDCDB 
1* 



; Try to find a CDB for this channel 
i Br if we found a CDB 



Thib channel is not open to a shared file. Return error code 1. 



MOV 
JMP 



#EC1, RO 
@#SETERR 



; Return error code 1 



This channel is opened tu a shared file. 
Get number of the block we want to lock. 



1*: MOV @#EMTBLK+2, Rl 
1 NC R 1 



iGet # of block to lock 
J Bias the block number 



Try to lock the requested block 



CALL 


TRYLK 


BCC 


2* 


TST 


RO 


BEQ 


3* 


JMP 


@#SETERR 



i Try to lock the block 

i Br if we were able to lock the block 

i Is block locked by someone else? 

; Br if yes 

i Some other error 



The block is locked by someone else. 
Suspend our job until the block is unlocked. 



3*: 



CALL 
BR 



LKWAIT 
1* 



iWait for block to be unlocked 
i Now go try again 



; We successfully locked the block 
2*: JMP @#EMTXIT 



c 
i 
c 
i 

i 
i 
( 
C 
i 
I 

i 
i 
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« 
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I 
I 
I 
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r 



M 



4 

f 
i 

i 

4 

I 

i 

i 
( 
I 
( 



3 








4 








5 








6 
7 

8 


001470 












9 








10 


001470 


004767 


002660 


11 


001474 


103004 




12 


001476 


012700 


000001 


13 


001502 


000137 


0000000 


14 








15 








16 








17 


001506 


013701 


000002G 


IS 


001512 


005201 




19 


001514 


004767 


000562 


20 


001520 


103402 




21 








22 








23 








24 
25 
26 


001522 


000137 


0000000 








27 








28 


001526 


005700 




29 


001530 


001017 




30 


001532 


012700 


000003 


31 


001536 






32 


001542 


016402 


OOOOOOG 


33 


001546 






34 


001554 


132762 


OOOOOOG OOOOOOG 


35 


001562 


001402 




36 


001564 


012700 


000004 


37 


001570 


000137 


OOOOOOG 



This routine is jumped to when an EMT is executed to try to lock a block 
with a status code being returned is the block is not available. 

DOTLK: 

See if this channel is opened to a shared file 



CALL 

BCC 

MOV 



FNDCDB 
1* 
#EC1, RO 



; See if channel is opened to a shared file 
i Br if channel is opened to a shared file 
; Return error code 1 if not opened to shared 



Try to lock the requested block 



1$: 



MOV 


@#EMTBLK+2, Rl 


INC 


Rl 


CALL 


TRYLK 


BCS 


2* 



i Get # of block to lock 

; Bias the block number 

i Try to lock the block 

i Br if unable to lock the block 



i vie Huccessfuiiy locked the block 



@#EMTXi r 



The block is not available? 



?*: 



3*: 



TST 


RO 


BNE 


3* 


MOV 


#EC3> RO 


MAPTO 


R5 


MOV 


FC*FDB(R4),R2 


MAPTO 


FC$FDB+2(R4> 


BITB 


#FT*EFL. FF*FL 


BEQ 


3* 


MOV 


#EC4, RO 


JMP 


e#SETERR 



iBlock locked by another job? 
; Br if some other error 
; Assume single block locked 
; Map to the CDB 
i Get pointer to FDB for file 
i Map to the FDB 

\2) i Is the entire file locked? 
; Br if not 
i Return error code 4 



I 
i 
< 
I 

i 

i 

4 
I 
i 
i 
I 
( 
( 
i 
i 

I 
c 
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2 
3 
4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



001574 



001574 004767 002554 

001600 103004 

001602 012700 000001 

001606 000137 OOOOOOG 



001612 004767 00144S 



001616 000137 0000000 



. SbTTL DQCULK — EMT to unlock ail blocks for a channel 

This routine is called by the EMT which is used to unlock all locked 
blocks for a channel. 

DOCULK: 

Make sure this channel is opened to a shared file 

i Locate CDB for shared file 

} Br if found the CDB 

; Return error 1 if not opened to shared file 

Unlock all of the blocks for this channel 

1*: CALL CHNULK j Unlock all blocks for the channel 
Finished 

JMP e#EMTXIT 



CALL 


FNDCDB 


BCC 


1« 


MOV 


#EC1,R0 


UMP 


e#SETERR 



i 



( 

f 
f 
i 
< 

c 
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i 

i 
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TSLOCK 
DOULKl - 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
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SBTTL DQULKl — EMT to unlock a single block 



001622 



001622 004767 002526 

001626 103004 

001630 012700 000001 



This routine is executed in response to the EMT which unlocks a 
sinq le block. 



DOULKl: 

Make sure this channel is opened to a shared file 






W\./W 



CALL 


FNDCDB 


BCC 


1* 


MOV 


#EC1,R0 


JMP 


©#3ETERR 



001640 

001644 132764 OOOOOOG OOOOOOG 

001652 001004 



001654 013700 000002G 
001660 005200 
001662 001003 



; Locate CDB for this channel 

> Br if channel is opened to a shared file 

i Error code 1 if not opened to shared file 



} If lite currently have the entire file locked^ unlock the file now. 

1$: MAPTO R5 i Map to the CDB 

BITB #FL«EFL>FC*FLG(R4)i Do uie have the entire file locked? 
BNE 4* i Br if yes 



001664 004767 001370 
001670 000414 



'2 010403 

001674 062703 OOOOOOG 

001700 013702 OOOOOOG 

001704 020023 

001706 001402 

001710 077203 

001712 000403 

001714 004767 001434 

001720 005043 



001722 000137 OOOOOOG 



Get the number of the block to unlock 



3-?- 



MOV 
INC 

BNE 



@#EMTBLK+;?, RO 
RO 



2* 



Get # of block to unlock 

Bias the block number 

Br if unlocking a single block 



Block number was — 1. 



4*: 



CALL 
BR 



CHNULK 

9* 



unlock all of the locked blocks. 

j Unlock all locked blocks 



> Unlock a single block 

2*: 

5*: 

6$: 

i 

t Finished 

9$: JMP €#EMTXIT 



MOV 


R4, R3 


ADD 


#FC*LBN, R3 


MOV 


@#VMLBLK, R2 


CMP 


RO, <R3> + 


BEQ 


6* 


SOB 


R2, 5* 


BR 


9* 


CALL 


UNLOCK 


CLR 


~(R3) 



Get virtual address of CDB 

Point to start of block # vector in CDB 

Get # locked block entries in CDB 

See if block is in lock list 

Br if it is 

Keep looking 

Specified block is not locked 

Unlock the block 

Remove block # from lock table 



f 

i 
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4 

i 

i 
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i 
i 
I 

i 
i 
I 
f 
I 
I 
I 
I 
i 
i 
( 
i 
« 
c 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 



001726 



001726 004767 002422 
001732 103415 



001734 

001740 132764 OOOOOOG OOOOOOG 

001746 001407 



001750 142764 OOOOOOG OOOOOOG 
001756 012700 000002 
001762 000137 OOOOOOG 



001766 000137 OOOOOOG 



.SBiiL DUSFCK — fc.M( to check for shared file modification 

This EMT is used to check to see if any other users have written 

to the shared file specified bu our channel #. 

If no writes by other users have occurred since the last time 

this EMT was executed^ no error is returned by the EMT. 

If writes have been performed to the file, an error status of 2 is 

returned. 

DOSFCK: 

Make sure this channel is opened to a shared file. 



BCS 



FNDCDB 
9* 



(Find CDB for this channel 

J Br if channel not opened to shared file 



9*: 



See if file-modification flag set in our CDB 

MAPTO R5 iMap to our CDB 

BITB #FL*ACT, FC«FLG<R4) J Has the file been modified by others? 

BEQ 9« ; Br if not 

The file has been rnodifird 

BICB #FL*ACT>FC*FLG<R4) .Reset the modification flag 
MOV #EC2, RO i Return error code 2 

JMP @#SETERR 

The file has not been modified 

JMP ©#EMTXIT 
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i 



3 
4 
5 
6 
7 
8 

V 

10 
11 
12 



001772 
001774 



14 
15 
16 

17 002002 

18 002006 

19 002010 

20 002014 

21 002020 

22 002022 

23 002024 

24 002032 

25 002040 

26 002044 

27 002046 

28 002054 

29 002060 

30 002066 

31 002070 
32 

33 
34 

35 002074 

36 002102 

37 002110 

38 002114 
39 

40 
41 

42 002120 

43 002124 

44 002126 

45 002130 



010146 
010246 



010402 
013700 
062700 
005022 
077002 
1 1 3764 
113764 
032701 
001403 
152764 
042701 

060100 
111064 



013764 
013764 
010437 
010537 



012637 
012602 
012601 
000207 



Add a new CDB to the list of CDB's for the current job and initialize 
the CDB. 

Inputs: 
R4 = Virtual address of CDB. 
R5 = PAR pointer for CDB. 







^1 tSII 



access mude flags. 



OOOOOOG 



INICDB: MOV 
MOV 
MOV 



Rl, 
R2, 



<SP) 
<SP) 






0000000 

ooooooc 



1$: 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
000400 

OOOOOOG OOOOOOG 
177770 2i| 



OOOOOOG 



OOOOOOG OOOOOOG 
000002G 000002G 
OOOOOOG 
000002G 



Map to the CDB 

Get pointer to CDB 

Get # locked block entries 

Add size of rest of entry 

Initially zero the entire CDB 



CDB 



Initialize the CDB 

MAP TO R5 

MOV R4> R2 

MOV @#VMLBLK, RO 

ADD #FC*LBN/2, RO 

CLR <R2)+ 

SOB RO, 1* 

MOVB @#CORUSR, FC*UN(R4); Store job number into 

MOVB @#CHNNUM, FC$CHN<R4)j Store channel number 

BIT #400. Rl i Should we suppress data caching? 

BEQ 2* iBr if not 

BISB #FL*NDC, FC*FL.G<R4)i Set flag in CDB to suppress data caching 

BIC #'X<7>, Rl ;Mask out all but protection code 

. ADDR #ACCMSK, RO i Get address of access mask table 

ADD R1,R0 ; Point to correct entry in table 

MOVB (RO), FC*ACC<R4) ; Set access protection flags 

Add CDB to linked list of CDB's for current job. 

MOV @#JCDB,FC*CLK<R4); Make new CDB point to rest of list 

MOV @#JCDB+2, FC*CLK+2 < R4 ) 

MOV R4, e#JCDB iMake list head of job point to new CDB 

MOV R5, e#JCDB+2 

Fini shed 



OOOOOOG 



MOV 
MOV 
MOV 
RETURN 



(SP)+, @#KPAR5 
(SP)+, R2 
(SP)+, Rl 



i 
i 

i 
i 
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i. 
2 
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4 
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6 
7 
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21 
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28 
29 
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31 
32 
33 
34 
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36 
37 
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41 
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002132 010146 

002134 010446 

002136 010546 

002140 013746 OOOOOOG 



002144 

002152 042701 177770 

002156 060100 

002160 111000 



002162 

002166 016204 OOOOOOG 

002172 016205 000002G 

002176 001412 



002200 

002204 130064 OOOOOOG 

002210 001007 



002212 016405 000002G 
002216 016404 OOOOOOG 
001366 



002224 000241 
002226 000401 



002230 000261 



002232 012637 OOOOOOG 
002236 012605 



. SBTTL GHKACt; — Check for file open access conflicts 

CHKACC is called during a file open operation to determine if the 
access orotection set ud bu other users alloujs us to access the file. 



Inputs: 
R2, R3 



Pointer to FDB for file being opened. 



Rl = File access code as provided in open argument block. 






C-flag cleared ==> File access is ok. 
C-flag set ==> File access denied. 



CHKACC; MOV 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R4. -(SP) 
R5, -(SP) 
@#KPAR5, -(SP) 



. ADDR 


#ACCBIT> RO 


BIC 


#'X<:7>, Rl 


ADD 


Rl> RO 


MOVE 


(RO),RO 



» Preserve mapping 

Convert access code to a bit mask 

i Point to bit mask vector 
/Clear ail but access flags 
;Point to cell of interest 
; Get bit mask 

Begin loop which will examine each CDB on list for file 

MAPTO R3 iMap to the FDB 

MOV FF*CDB(R2)> R4 i Get virtual address of Ist CDB for file 

MOV FF*CDB+2(R2), R5 ; Get PAR mapping for 1st CDB 

BEQ 3* ; Br if there are no CDB's 

See if there is an access conflict with this CDB 



1«: 



MAPTO R5 

BITB RO, FC*ACC(R4) 

BNE 2* 



) Map to the CDB 

iCheck for access conflict 

J Br if there is a conflict 



No conflict with this CDB. See if there are more to check. 

MOV FC*FLK+2(R4), R5 ; Get Par mapping for next CDB 

MOV FC*FLK(R4), R4 ; Get pointer to next CDB 

BNE 1* i Br if there are more CDB's to check 



There is no access conflict. 



3*: 



CLC 
BR 



9* 



There is an access conflict 
Finished 



9*: 



MOV (SP)+, @#KPAR5 

MOV (SP)+, R5 



i Signal success on return 



/Signal error on return 



/Restore par mapping 
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58 002240 012604 

59 002242 012601 

60 002244 000207 



MOV 


<3P)+, R4 


MOV 


<SP)+, Rl 


RETURN 





t 
I 
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2 
3 
4 
5 

6 002246 010446 

7 002250 010546 

8 002252 013746 OOOOOOG 

7 

10 
11 
12 002256 004767 002072 

14 

15 

16 

17 

IS 002264 004767 001416 

19 

20 

21 

22 002270 012637 OOOOOOG 

23 002274 012605 

24 002276 012604 

25 002300 000207 



3D! ! '_ ar^La — uiose a siiar-wo riie cnanne?* 



The SFCLS subroutine is called from the close channel routine to see 
if the channel is ooened to a shared file. 



SFCLS: MOV R4, -<SP) 
MOV R5, -<SP) 
MOV @#KPAR5, -(SP) 



See if this channel 



A A '.i U |J 1= 1 > 



CALL 
BCS 



FNDCDB 
9* 



to a shared file 

i Try to find CDB for this channel 

, Br if channel not opened to shared file 



This channel is opened to a shared file. 
Close the CDB. 



; Close this CDB 



9$- 



CALL 


CL3CDB 


Finished 




MOV 


(SP)+, (»#KPAKb 


MOV 


(SP)+.R5 


MOV 


(SP)+, R4 


RETURN 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 

17 002302 

18 002304 

19 002306 

20 002312 
21 

22 
23 

24 002314 

25 002320 

26 002326 
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010246 

010346 

013746 0000000 

010146 



132764 
001116 



OOOOOOG OOOOOOG 



27 
28 
29 
30 

31 002330 

32 002332 

33 002334 

34 002340 
35 

36 
37 

38 002342 

39 002346 

40 002350 

41 002352 

42 002356 

43 002362 

44 002364 

45 002366 
46 

47 
48 

49 002370 

50 002374 
51 

52 
53 
54 

55 002400 

56 002404 

57 002410 



005716 
001003 
004767 
000413 



105764 
001410 
010402 
062702 
013703 
021622 
001477 
077303 



016402 
016403 



000720 



OOOOOOG 



OOOOOOG 
OOOOOOG 



TRYLK 



t!*y to j.DCk a ulock 



TRYLK is called to attempt to lock a block. 

A biased block number of (original block number 177777) represents 

a request to lock the entire file. 

Inputs: 
Rl = Bias block number. 
R4, R5 = Pointer to CDB for channel locking block. 

Outputs: 
C-flag cleared ==> Block successfully locked. 
C-flag set ==> Block could not be locked... 

RO = ==> Block locked by another user. 

RO = 2 ==> User has attempted to lock too many blocks. 

TRYLK: MOV R2, -(SP) 

MOV R3, -<SP) 

MOV S#KPAR5, ~-(SP) 

MOV R1*-<SP) i Save block # on top of stack 

if uie already have the entire file locked* then this block is locked too 

MAPTO R5 »Map to the CDB 

BITB #FL*EFL, FC*FLG<R4); Do ue have entire file locked? 

BNE 19* ; Br if yes — Block is already locked 

If this is a request to lock the entire file* unlock any blocks 
we currently have locked. 

j Request to lock entire file? 

j Br if not 

; Unlock any blocks ue have locked already 



TST 


(SP) 


BNE 


1$ 


CALL 


CHNULK 


BR 


8* 



See if we already have the block locked 



1*: 



9*: 



TSTB 


FC*NLB(R4) 


BEQ 


S« 


MOV 


R4, R2 


ADD 


#FC«LBN, R2 


MOV 


@#VMLBLK, R3 


CMP 


(SP), <R2) + 


BEQ 


19* 


SOB 


R3, 9* 



Does this CDB have any blocks locked? 

Br if not 

Get pointer to CDB 

Point to locked-block list in CDB 

Get # locked-block entries in list 

See if block is already locked by CDB 

Br if block is already locked 



OOOOOOG 
000002G 



Get pointer to FDB for file 

8*: MOV FC*FDB<R4), R2 

MOV FC*FDB+2<R4), R3 



Get pointer to FDB 



If there are no blocks locked for this file* me can immediately 
satisy the request. 



005762 
001412 



OOOOOOG 



MAPTO 

TST 
BEQ 



R3 

FF«NLB(R2) 

4« 



* Map to the FDB 

j Are there any blocks locked now?" 

5 if none locked then u»e can satisfy request 
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59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 

78 

j^ 

80 

Si 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



UUei*f J. d 

002414 



SJKJ u/ la 
001460 



! a ! 
I3EQ 



IS* 



i 15 ■cnis a reques-c xo iocK empire file' 
j Br if yes — Can't satisfy now 



002416 
002424 



132762 
001054 



OOOOOOG OOOOOOG 



002430 
002434 



004767 
103450 



000146 



This is a request tn lock a sinple block and some blocks are locked 
in the file. If the entire file is locked, we cannot satisfy request. 

BITB #FT*EFL, FF*FLG<R2)i Is the entire file locked now? 
BNE 18* ■ Br if entire file locked 

i\uii uuUJn Ciidi.!! OT ^jUa s> rut biij,a T 4. j. tr aiiu sex: j. V 3uine OTflBr 

user has this block locked. 

iGet # of block to lock for CHKLOK 

j See if any other user has this block locked 

; Br if block locked by another user 



MOV 


( SP ) , R 1 


CALL 


CHKLOK 


BCS 


IS* 



The block is free so claim it for our channel. 
<SP)==block #; R2, R3=FDS3 pointer; R4, R5=CDB pointer. 



002436 
002440 



002442 
002446 
002454 
002460 
002464 
002472 
002476 



002500 
002504 
002512 
002514 
002516 
002522 
002524 
002526 
002530 
002534 
002540 
002544 



002546 
002552 
002554 



002556 
002560 



005716 
001017 



4*: 



TST 
BNE 



<SP) 
5* 



iLock entire file? 
; Br if not 



Lock entire file 



1 52762 
005262 

1 52764 
105264 
000432 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



126437 
103015 
010401 
062701 
005721 
001376 
011641 
105264 

005262 
000407 



012700 
000261 
000404 



005000 
000261 



OOOOOOG OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOi 



MAPTO R3 >riap to the FDD 

BISB #FT*EFL, FF*FLG<R2); Say entire file is locked 

INC FF*NLB(R2) i Count # locked blocks 

MAPTO R5 ; Map to the CDB 

BISB #FL*EFL, FC*FLG<R4)i Say this channel has entire file locked 

INCB FC*NLB<R4) ; Say channel has a block locked 

BR 19* jFinished 

Lock a single block 

5*: MAPTO R5 i Map to the CDB 

FC*NLB<R4),€!#VMLBLK iMax # blocks already locked? 

Br if yes — Error cannot lock another 

Get addr of CDB 

Point to list of block numbers 

7*: TST <Ri)+ ; Search for free entry in list 

(free entry will be zero) 
Store new block number into list 
Say another block locked by channel 
Map to the FDB 

Say another block locked in file 
Finished 

User is requesting to simultaneously lock more blocks than allowed 
6*: MOV #EC2, RO 

20* 

The requested block is locked by another job 
18*: CLR RO 



MAPTO 


R5 


CMPB 


FC*NLB<R4) 


BHIS 


6* 


MOV 


R4, Rl 


ADD 


#FC*LBN, Rl 


TST 


<Ri) + 


BNE 


7* 


MOV 


(SP), -<R1) 


INCB 


FC*NLB<R4> 


MAPTO 


R3 


INC 


FF*NLB<R2) 


BR 


19* 



MOV 
SEC 
BR 



i Return error 2 

i Signal error on return 



CLR 



; Return error 

; Signal error on return 
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116 i 

117 ; We successfully locked the block 

118 ■> 

119 002564 000241 19*; CLC » Signal success on return 
120 
121 
122 

123 002566 012601 

124 002570 012637 OOOOOOG 

125 002574 012603 

126 002576 012602 

127 002600 000207 



19*; CLC 




i Finished 




20*: MOV 


(SP)+. Rl 


MOV 


(SP)*'.. @#KPAR5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 
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another job 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


002602 


010146 




15 


002604 


010246 




16 


002606 


010346 




17 


002610 


010446 




IS 


002612 


010546 




19 


002614 


013746 


OOOOOOG 


20 








21 








22 








23 


003620 






24 


002624 


016204 


0000000 


25 


002630 


001431 




26 


002632 


016205 


000002G 


27 


002636 


113700 


OOOOOOG 


28 








29 








30 








31 


002642 






32 


002646 


105764 


OOOOOOG 


33 


002652 


001413 




34 


002654 


120064 


OOOOOOG 


35 


002660 


001410 




36 


002662 


010402 




37 


002664 


062702 


OOOOOOG 


38 


002670 


013703 


OOOOOOG 


39 


002674 


020122 




40 


002676 


001410 




41 


002700 


077303 




42 








43 








44 








45 


002702 


016405 


000002G 


46 


002706 


016404 


OOOOOOG 


47 


002712 


001353 




48 








49 








50 








51 


002714 


000241 




52 


002716 


000401 




53 








54 








55 








56 


002720 


000261 





SU i ! L. 



CHKLOK 



aee if a block is locked by another job 



This routine is called to determine if a specific block is locked 
bu another loh 

Inputs: 
Rl = Biased block number. 
R2, R3 = Pointer to FD13 for file to be checked. 

n . . J.- -. . . J- - . 

U( IJ V p u u » . 

C-flag set ==> Block is locked by another job. 
C-flag cleared ==> Block is not locked. 

CHKLOK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 




R2, -(SP) 




R3, -(SP) 




R4, -(SP) 




R5, -(SP) 




®#KPAR5> - 


-(SP) 



Get pointer to start of CDB chain for this file 



MAPTO 
MOV 

BEQ 
MOV 
MOVE 



R3 : Map to FDB 

FF*CDB(R2)> R4 iGet virtual address of Ist CDB for file 

S* .Br if no CDB's for file 

FF*CDB+2(R2>, R5 >Get par mapping for ist CDB 

@#CORUSR» RO j Get our job index number 



See if next CDB has specified block locked 



1*: 



3*: 



MAPTO 


R5 


TSTB 


FC*NLB(R4) 


BEQ 


2* 


CMPB 


RO, FC*UN(R4) 


BE(3 


2« 


MOV 


R4, R2 


ADD 


#FC*LBN, R2 


MOV 


@#VMLBLK, R3 


CMP 


Rl, (R2) + 


BE(3 


7* 


SOB 


R3, 3* 



Map the CDB 

Does this CDB have any blocks locked? 

Br if not 

Does this CDB belong to our job? 

Br if yes — We only care about other jobs 

Get address of base of CDB 

Point to vector of locked block #'5 

Get # locked block entries 

See if requested block is locked 

Br if yes 

Check all entries in CDB 



Block not locked by this CDB, check next CDB 



c'*: 



MOV FC*FLK+2(R4), R5 
MOV FC*FLK(R4), R4 
BNE 1* 



Get par for next CDB 
Get virtual address of next CDB 
i Loop if more CDB's to check 



This block is not .locked by any channel 
8$: CLC .: Signal success on return 



CLC 
BR 



9* 



This block is locked by another job 
7*: SEC j Signal failure on return 






I 

I 
I 

i 

( 
I 
f 
I 
« 
I 
< 

i 

i 

c 



57 



I 
( 

I 



TSLOCK Shared file access cont MACRO V05. 05 Tuesday 17-Jan-S9 14:08 Page 20-1 
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58 
59 

60 002722 

61 002726 

62 002730 

63 002732 

64 002734 

65 002736 

66 002740 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 



9*: 



r 4. IP 4. »ii eu 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



<SP)+, @#KPAR5 
(SP)+, R5 
<SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



RETURN 



f 

c 
f 

i 
i 
i 
€ 
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. 313 ! ! L. 



LKWAIT 



Wait for a locked block 



2 
3 
4 
5 
6 
7 
8 
9 

10 002742 

11 002744 

12 002746 

13 002750 

14 002752 

15 002754 
16 

17 
18 

19 002760 

20 002764 

21 002770 
22 

23 



010146 
010246 
010346 
010446 
010546 
013746 0000000 



016402 ooooooe 

016403 000002G 



25 
26 
27 
28 

29 003000 

30 003004 

31 003010 

32 003014 

33 003022 
34 

35 
36 

37 003030 

38 003036 

39 003042 

40 003046 
41 

42 
43 

44 003052 

45 003054 

46 003056 

47 003062 

48 003066 

49 003072 

50 003074 

51 003100 

52 003104 

53 003106 

54 003112 
55 

56 
57 



002774 00473/ OOOOOOO 



016704 175064 

016705 175062 

016467 OOOOOOG 175046 

016467 0000020 175042 



113764 OOOOOOG OOOOOOG 

010164 OOOOOOG 

005064 OOOOOOG 

005064 000002G 



010200 
010301 
062700 OOOOOOG 

005760 OOOOOOG 

001405 

016001 000002G 

016000 OOOOOOG 

000766 

010460 OOOOOOG 

010560 000002G 



LKWAIT is called to suspend the execution of the current job until 
a requested block is unlocked. 



Inputs: 
Rl == Number of block to lock (biased by adding 1). 
R4, R5 = Pointer to CDB. 



MOV 


R 1 , - < SP ) 


MOV 


R2, -<SP) 


MOV 


R3>-<SP) 


MOV 


R4> -<SF) 


MOV 


R5, -<SP) 


MOV 


@#KPAR5, 



• < SP ) 

Get the address of the FDB for this file. 

MAPTO R5 ;Map to the CDB 

MOV FC*FDB(R4)>R2 i Get virtual address of FDB 

MOV FC*FDB+2(R4),R3 ; Get par mapping for FDB 

Before me suspend the job, check to see if it has been aborted. 

CALL ©#CHKABT i See if job has been aborted 

Get a free wait queue element. 



MOV 

MOV 

MAPTO 

MOV 

MOV 



FWFREE, R4 
FWFREE+2, R5 

R5 



Get virtual addr of free wait queue element 

Get par mapping 

Map to the wait element 
FW*WLK(R4),FWFREE i Remove block from free list 
FW*WLK+2(R4>. FWFREE+2 



1$: 



3*; 



Set up information in the wait queue element 

MOVB @#CORUSR, FW*UN<R4) ; Set job number 

MOV Rl, FW*DBN<R4) i Set # of block we are waiting for 

CLR FW«WLK<R4) i Say we are end of linked list 

CLR FW*WLK+2<R4) 

Add entry to tail of wait list for file 

MOV R2, RO .:GBt pointer to FDB 

MOV R3>R1 

ADD #FF*FWD-FW*WLK, RO iFake pointer so FDB looks like wait block 

MAPTO Rl iMap to the next wait block <or FDB if 1st tm) 

TST FW*WLK(RO,) :. Is this the last wait block on the list? 

BEQ 3* >Br if yes 

MOV FW*WLK+2(R0), Rl i Get pointer to next wait block on list 

MOV FW*WLK<R0>, RO 

BR 1* i Continue looking for end of list 

MOV R4, FW«WLK<RO) .:Add our wait block to end of list 

MOV R5, FW*WLK+2<R0) 

Suspend job and wait for desired block to be unlocked 



I 
I 
I 
i 
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5S 003116 

59 003122 

60 

61 

62 

63 

64 

65 003126 

66 003132 

67 003136 

68 003142 

69 003146 

—rr\ r\r\'-i < tio 



004737 



OOOOOOQ 
OOOOOOG 



CALL @#QNSPND 



iQet 5haieu~file ujsi'k s'bate code 
/Change job state and suspend execution 



71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 



003156 
003160 
003164 
003166 
003172 
003176 
003200 
003204 



003210 
003214 
003222 
003230 
003234 



003240 
003244 
003246 
003250 
003252 
003254 
003256 



016400 
016401 
062702 

026204 
001003 
026205 
001405 
016203 
016202 
000763 
010062 
010162 



016764 
016764 
010467 
010567 



012637 
012605 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 
0000020 

ooooooc 

OOOOOOG 

000002Q 

000002G 
OOOOOOG 

OOOOOOG 
000002G 



We have been restarted. 

Either the desired block was unlocked or job uias aborted. 

Release the wait block uie used. 

MAPTO R5 ; Map to the wait block 

MOV FW*WLK<R4), RO ; Get pointer to following wait block 

MOV FW«WLK+2<R4), Rl 

ADD #FF«FWD-FW*WLK, R2 ; Fake pointer so FDB looks like wait block 

4*: MAPTO R3 ; Map to next wait block < or FDB if Ist time) 

CMP FW$WLK<R2), R4 ;Are ws next entry in list? 

BNE 6* .: Br if not 

CMP FW*WLK+2<R2>, R5 

BEQ 7* » Br if yes 

6*; MOV FW*WLK+2<R2), R3 iGet pointer to next wait block for file 

MOV FW«WLK<R2), R2 

BR 4* i Continue searching 

7«: MOV RO, FW*WLK(R2) j Relink wait-block list around us 

MOV Ri, FW«WLK+2(R2) 



Return the wait block to the free list 



'd%. 



174650 OOOOOOG 
1 74644 OOO002G 
174634 
1 74632 



OOOOOOG 



MAPTO 

MOV 

MOV 

MOV 

MOV 



Fini shed 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R5 ; Map to wait block being freed 

FWFREE, FW*WLK<N4) > Put on free list 
FWFREE+2, FW*WLK+2<R4) 
R4, FWFREE 
R5, FWFREE+2 



(SP)+, @#KPAR5 
(SP)+, R5 
(SP)+, R4 
(SP)+, R3 
<SP)+, R2 
<SP)+,R1 



< 
< 

c 
I 

I 

i 

I 

i 

i 



i 
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a channel 



1 

2 






3 






4 






5 






6 






7 






8 






9 003260 


010246 




10 003262 


010346 




11 003264 


013746 


OOOOOOG 


12 






13 






14 






15 003270 






16 003274 


132764 


0000000 OOOOOOG 


17 003302 


001404 




IS 003304 


005000 




19 003306 


004767 


000042 


20 003312 


000413 




21 






22 






23 






24 






25 003314 


010402 




26 003316 


062702 


OOOOOOG 


27 003322 


013703 


OOOOOOG 


28 003326 


011200 




29 003330 


001402 




30 003332 


004767 


000016 


31 003336 


005022 




32 003340 


077306 




33 






34 






35 






36 003342 


012637 


OOOOOOG 


37 003346 


012603 




38 003350 


012602 




39 003352 


000207 





SBTiL CHNuLK 



uniocK 3ii DJ.OCKS TOT 3 cnannei 



CHNULK is called to unlock all the blocks which are locked by a 
channel. 



Inputs: 
R4, R5 = Pointer to CDB for channel. 



CHNULK: MOV 
MOV 
MOV 



R2^ -<SP ) 
R3, -(SP) 
@#KP.AR5.. ~<SP) 



1$; 



2*: 



3*: 



See if we have the entire file locked 

MAPTO R5 .:Map to the CDB 

BITB #FL*EFL.. FC*FLG<R4)i Do we have the entire file locked? 

BEG 1* ;Br if not 

CLR RO 'Say u/e want to unlock the entire file 

CALL UNLOCK ; Unlock the file 

BR 9* 

We do not have the entire file locked. 

Unlock the specific blockr. that we have locked 

; Get pointer to CDB 

;Point to list of block numbers 

;Get # blocks in list 

; Get next block number 

j Br if this entry not used 

; Unlock that block 

; Say this block no longer locked by us 

; Loop if more to check 



9*: 



MOV 


R4,R2 


ADD 


#FC*LBN> R2 


MOV 


@#VMLBLK, R3 


MOV 


(R2).R0 


BEQ 


3* 


CALL 


UNLOCK 


CLR 


(R2) + 


SOB 


R3, 2* 


Finished 




MOV 


(SP)+, e#KPAR5 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i 
f 



i 
i 
t 
t 
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I 



c 

I 
I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 









003354 
003356 
003360 
003362 
003364 
003366 
003372 



003374 
003400 
003404 
003412 
003416 
003422 
003426 
003432 



003440 
003444 
003450 



010146 
010246 
010346 
010446 
010546 
013746 
010001 



OOOOOOG 



105364 
142764 
016402 

016403 

005362 
142762 



016204 
016205 
001451 



OOOOOOG 
OOOOOOG 
OOOOOOG 

000002G 

OOOOOOG 
OOOOOOG 



OOOOOOG 
000002G 



OOOOOOG 



OOOOOOG 



003452 
003454 
003456 
003462 
003466 
003470 
003474 
003500 
003504 
003506 
003512 
003516 
003520 



003522 
003526 
003532 
003536 



005701 
001022 

005764 
001440 
004767 
016405 
016404 
001433 

005764 
001364 
000765 



016200 

005764 
001003 



OOOOOOG 

000120 

000002G 

OOOOOOG 



OOOOOOG 



Unlock a specific block for a channel. 

If there are any users waiting for this blocks they are restarted. 

Inputs: 
RO = Biased block number to be unlocked <0==>Unlock entire file). 
R4, R5 = Pointer to CDB. 



UNLOCK: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 



PI,—/ sp ) 
R2, -(SP) 
R3, -(SP) 
R4, -<SP) 
R5, -(SP) 
@#KPAR5, -(SP) 
RO, Rl 



J Carry block number in Rl 

Decrement block lock count in CDB and FDB 

MAPTO R5 ;Map to the CDB 

DECB FC*NLB(R4) > Say channel has one fewer blocks locked 

BICB #FL*EFL, FC*FLG(R4)i Say channel does not have whole file locked 

MOV FC*FDB(R4),R2 ; Get pointer to FDB 

MOV FC*FDB+2(R4), H3 

MAPTO KLJ J Map to the FDB 

DEC FF*NLB<R2) i Say one fewer locked blocks in file 

BICB #FT«EFL. FF*FLG(R2)i Say entire file is not locked 



OOOOOOG 
OOOOOOG 



Get pointer to first wait block for this file 

MOV FF*FWD(R2), R4 ; Get pointer to 1st wait block for file 

MOV FF*FWD+2(R2), R5 

BEQ 9* j Br if no waiting users 

There are some jobs waiting for blocks in this file. 
See if we are unlocking the entire file. 

Are we unlocking entire fileT' 
Br if not 

Map to the first wait block 
1st user waiting for entire file? 
Br if yes — Restart him only 
3$: CALL RESTRT i Restart this user 

4*: MOV FW«WLK+2(R4), R5 i Get pointer to next wait block 

; Br if hit end of list 

iMap to next wait block 

J Does this job want to lock whole file? 

J Br if not 

i He can't have all since we started others 

We are unlocking a specific block 

1«: MOV FF*NLB(R2), RO i Get # blocks remaining locked in file 

5*: MAPTO R5 iMap to wait block 

TST FW*DBN(R4) i Waiting for entire file? 

BNE 7* iBr if not 



TST 


Rl 


BNE 


1* 


MAPTO 


R5 


TST 


FW«DBN(R4) 


BEQ 


8$ 


CALL 


RESTRT 


MOV 


FW*WLK+2(R4),R5 


MOV 


FW*WLK(R4),R4 


BEQ 


9* 


MAPTO 


R5 


TST 


FW*DBN(R4) 


BNE 


3* 


BR 


4* 



i 
i 
i 
I 
4 
i 
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SS 003540 

59 003542 

60 003544 

61 003546 

62 003552 

63 003554 

64 003560 

65 003564 

66 003566 
67 

68 

69 

70 003570 

71 

72 

73 

74 003574 

75 003600 

76 003602 

77 003604 

78 003606 

79 003610 

80 003612 



005700 
001412 
000403 
020164 
001406 
016405 
016404 
001360 
000402 



OOOOOOG 
0000026 

ooooooe 



004767 000020 



012637 
01260D 
012604 
012603 
012602 
012601 
000207 



OOOOOOG 



TST 

BEQ 

BR 
7«: CMP 

BEQ 
6*: MOV 

MOV 

BNE 

BR 
i 

> Restart a job 
> 
8*: CALL 

i 

> 

9iS: MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



RO 

8* 

6* 

Rl, FW*DBN(R4) 

8* 

FW*WLK+2<R4), R5 

FW*WLK(R4). R4 

5* 

9* 



RESTRT 



<SP)+, @#KPAR5 
<SP )+> R5 
(SP)+, R4 
<SP)+, R3 
(SP)+, R2 
<SP)+, Rl 



i is 
; Br 



enrire 
if yes 



rue i^ree 



i 
€ 



; Is he utaiting for block UJ© are freeing?' 

; Br if yes 

.: Get par mapping for next wait block 

j Get pointer to next luait block 

; Br if more wait blocks to check 

; No waiting jobs to restart 



i Restart this waiting job 



TSLOCK Shared file access cont 
RESTRT — Restart a job that is 



I 
( 

c 

I 

« 

€ 
f 

f 
i 
I 
i 
i 

i 

\ 

! 

i 



2 








3 








4 








5 








6 








7 








S 


003614 


010146 




9 


003616 


010246 




10 


003620 


013746 


OOOOOOG 


11 








12 








13 








14 


003624 






15 


003630 


116401 


OOOOOOG 


16 








17 








18 








19 


003634 


004737 


OOOOOOG 


20 








21 








22 








23 








24 








25 








26 








27 


003640 


113702 


OOOOOOG 


28 


003644 


016200 


OOOOOOG 


29 


003650 


020061 


OOOOOOG 


30 


003654 


001007 




31 


003656 


126261 


OOOOOOG OOOOOOG 


32 


003664 


001003 




33 


003666 


010201 




34 


003670 


004737 


OOOOOOG 


35 








36 








37 








38 


003674 


012637 


OOOOOOG 


39 


003700 


012602 




40 


003702 


012601 




41 


003704 


000207 
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waiting for a lock 

. SBTTL RESTRT — Restart a job that is waiting for a lock 

Restart a job that is waiting for a locked block. 

Inputs: 
R4. R5 = Pointer to wait block for job being restarted. 



RESTRT: MOV 
MOV 
MOV 



Rl, -<SP) 
R2, -<SP) 
@#KPAR5, -<SP} 



Get number of job to restart 

MAP TO R5 

MOVB FW«UN(R4},- Ri 



J Map to the wait block 
jQet # of job to restart 



Place job in high-priority execution state 

CALL @#QHIPRI ; Place job in high-prio state 

If the job we are restarting has the same execution state as the 
currently executing job. requeue the currently executing job 
to the tail of the execution queue in order to give the restarted 
job an opportunity to get the block we released before our 

job relocks it. 

Get # of currently running job 

Get our execution state 

Same as job we restarted?" 

Br if not 
,)jSame execution priority too? 
i Br if not 

i Get our job index number 
(Requeue our job at tail of execution list 



9$: 



MOVB 


@#CORUSR. R2 


MOV 


LSTATE(R2), RO 


CMP 


RO, LSTATE(Rl) 


BNE 


9* 


CMPB 


LPRI(R2)>LPRI 


BNE 


9* 


MOV 


R2, Rl 


CALL 


@#ENQTL 


Finished 




MOV 


(SP)+, e#KPARr? 


MOV 


(SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 





I 

I 

I 

< 
I 
c 
f 

c 

( 

i 
t 

i 
i 
i 
t 

< 
I 
I 
t 



( 
I 
c 
I 
< 

i 
t 
f 

I 

I 

I 

I 

i 

' i 
( 
{ 
i 
( 
( 



» 
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1 

2 
3 
4 
5 
6 
7 
8 
9 
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iii\ W 



'JLscdb — Close a CDtJ 



CLSCDB is called to close a CDB. 

All locked blocks are freed, the CDB is freedj and the FDB is also 

freed if this is the last CDB associated with it. 



Inputs: 
R4, R5 = Pointer to CDB beinq closed. 



10 003706 

11 003710 

12 003712 

13 003714 
14 

15 

16 

17 003720 

IS 

19 

20 

21 003724 

22 003730 

23 003734 

24 003740 

25 003744 

26 003750 

27 003752 

28 003756 

29 003760 

30 003764 

31 003770 

32 003774 

33 003776 

34 004002 
35 

36 
37 

38 004006 

39 004012 

40 004020 

41 004026 

42 004032 

43 004036 
44 

45 
46 

47 004042 

48 004046 

49 004052 

50 004056 

51 004062 

52 004064 

53 004066 

54 004070 

55 004074 

56 004100 

57 004104 



CLSCDB: 



010246 
010346 



MOV 


R 1 , - < 3P ) 




MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


@#KPAR5, - 


- < SP ) 



004767 177334 



016400 
016401 
012702 
026204 
001003 
026205 
00 1 407 
016203 
016202 

000763 
010062 
010162 



OOOOOOG 
000002G 
OOOOOOC 
OOOOOOG 

0000020 

0000020 
0000000 



OOOOOOG 
000002G 



UnlDc:!< all blocks for this channel 

CALL CHNULK i Unlock all blocks assoc with the CDB 

Remove CDB from CDB li&t for this job 

MAPTO R5 ; Map to CDB being released 

MOV FC«CLK<R4), RO J Get pointer to following CDB 
MOV FC*CLK+2<R4>, Rl 

MOV #JCDB-FC*CLK, R2 iOet fake pointer to JCDB> make like CDB 

CMP FC$CLK<R2), R4 .Are uje the next CDB on the list? 

BNE 3* i Br if not 
CMP FC«CLK+2 ( R2 > , R5 

BEQ 4* i Br if yes 

MOV FC*CLK+2<R2)>R3 > Get pointer to next CDB for job 
MOV FC*CLK<R2), R2 

MAPTO R3 i Map to the next CDB 

BR 1* ; Continue searching 

4*: MOV R0> FC*CLK<R2) i Relink chain around us 
MOV R 1 , FC*CLK+2 ( R2 ) 

Return CDB to free list 



1$: 



3*: 



016764 
016764 
010467 
010567 
005237 



016400 
016401 
016402 
016403 
001443 
010246 
010346 
062702 

026204 
001003 



174046 
174042 
174032 
174030 
OOOOOOG 



OOOOOOG 
000002G 
OOOOOOG 
000002G 



OOOOOOC 
OOOOOOG 



OOOOOOG 
000002G 



MAPTO 

MOV 

MOV 

MOV 

MOV 

INC 



R5 i Map to CDB being freed 

FCFREE, FC*CLK(R4)i Add CDB to free list 

FCFREE+2, FC$CLK+2<R4) 

R4, FCFREE i Put element at head of free list 

R5, FCFREE+2 

@#NUMCDB iOne more free CDB 



Remove CDB from list of CDB's for file 

MOV FC*FLK<R4), RO > Get pointer to following CDB for file 

MOV FC*FLK+2 < R4 ) , R 1 

MOV FC*FDB(R4)> R2 i Get pointer to FDB 

MOV FC*FDB+2(R4), R3 

BEQ 20* i Br if no FDB set up 

MOV R2»-<SP) ; Save the FDB pointer 

MOV R3, -(SP) 

ADD #FF*CDB~FC*FLK, R2 iFake pointer so FDB looks like a CDB 

5*: MAPTO R3 > Map to the next CDB < or FDB if 1st time) 

CMP FC*FLK<R2), R4 i Are we next CDB on list? 

BNE 6* i Br if not 
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70 
71 



58 004106 

59 004112 

60 004114 

61 004120 

62 004124 

63 004126 

64 004132 
65 

66 
67 

68 004136 

69 004140 
004142 
004146 

72 004150 

73 

74 

75 

76 004154 

77 004160 

78 004164 
79 

80 

81 

82 

83 004166 

84 

85 

86 

87 004172 

88 004176 

89 004200 

90 004202 

91 004204 



026205 
001405 
016203 
016202 
000763 
010062 
010162 



012603 
012602 
005737 
001402 
004767 



005762 
001002 



012637 
012603 
012602 
012601 
000207 



0000020 
OOOOOOG 

0000000 
0000020 



OOOOOOG 
001552 
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BEQ 7* i Br if yes 

6*: MOV FC*FLK+2<R2). R3 ; Get pointer to next CDB 

MOV FC«FLK(R2),R2 

BR 5* i Continue searching 

7«: MOV RO, FC*FLK(R2> ; Relink chain around us 

MOV R 1 , FC*FLK+2 ( R2 ) 

Release all data cache descriptors associated uiith this file 

MOV <SP)+>R3 ;Get back pointer to the FDB 

MOV (SP)+, R2 

TST «£#NiJMDCD i Are tue doing data caching? 

BEQ B* ;Br if not 

CALL CLSDCD ; Release data cache entries for file 



OOOOOOG 



004767 000014 



OOOOOOG 



See if there are any CDB's left associated tuith this file. 



8*: 



MAP TO 

TST 

BNE 



R3 

FF*CDB(R2) 

20* 



i Map to the FDB 

j Are there any CDB's left assoc with file? 

» Br if yes 



We lust released the last CDB associated with this file. 
Frtf the FDB. 



; Free the FDB 



>0* 



CALL 


FREFDB 


Fini shed 




MOV 


(SP)+, @#KPAR5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 
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TSLOCK 
FREFDB 



Shared 
— Free 

1 
2 
3 
4 
5 
6 
7 

8 004206 
u04ia:iu 

10 004212 

11 004214 
12 

13 
14 

15 004220 

16 004224 

17 004230 
IS 004234 

19 004242 

20 004246 

21 004252 

22 004254 

23 004260 
004262 
004266 
004272 

27 004276 

28 004300 

29 004304 
30 

31 
32 

33 004310 

34 004314 

35 004322 

36 004330 

37 004334 
38 

39 
40 

41 004340 

42 004344 

43 004346 

44 004350 

45 004352 



•file access 
a FDB 
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. SBTTL FREFDB — Free a FDB 

i — — —.—. — —.—.—.«--- — — — __«. ■_«. — «„«,M-.«. — — — — .—— — — — —— — — ■ 

; Release a File Descriptor Block (FDB), 

> 

; Inputs: 

J R2. R3 = Pointer to FDB being freed. 



010146 

J^ A l^f^ It f 

\Jl UeLHO 
010346 

013746 



0000000 



FREFDB: MOV 
MOV 
MOV 
MOV 



Rl, -<SP> 
R2, -<SP) 
R3, -<SP) 
@#KPAR5, -<SP) 



24 
25 
26 



016200 
016201 

162704 
026402 
001003 
026403 
001407 
016405 
016404 

000763 
010064 
010164 



OOOOOOG 
000002G 

OOOOOOG 
OOOOOOG 

000002G 

000002G 
OOOOOOG 



OOOOOOG 
000002G 



i Release the FDB 

i 

MAP TO R3 

MOV FF*FLK<R2),R0 

MOV FF*FLK+2 < R2 ) , R 1 

. ADDR #FFHEAD. R4 

SUB #FF*FLK> R4 

1*: CMP FF«FLK<R4), R2 

BNE 3* 

CMP FF*FLK+2 ( R4 ) , H3 

BFG 6* .: Br if ye?; 

3*; MOV FF*FLK+2<R4), R5 i Get pointer to next FDB in list 

MOV FF*FLK<R4). R4 

MAPTO R5 ;Map to the next FDB 

BR 1* i Continue search 

6$: MOV RO, FF*FLK<R4) i Relink list around us 

MOV R 1 , FF*FLK+2 ( R4 > 



; Map to the FDB 

i Get pointer to FDB that follows one freed 

; Construct fake pointer to FFHEAD that makes 
; FFHEAD look like link within a FDB 
; Are we the next FDB in list':' 
; Br if not 



Return the FDB to the free list 



2*; 



016762 
016762 
010267 
010367 



173534 OOOOOOG 
173530 000002G 
173520 
173516 



MAPTO 

MOV 

MOV 

MOV 

MOV 



Finished 



012637 OOOOOOG 

012603 

012602 

012601 

000207 



MOV 
MOV 
MOV 
MOV 
RETURN 



R3 ; Map to FDB being freed 

FFFREE>FF*FLK(R2)i Put us on free list 
FFFREE+2, FF*FLK+2(R2) 
R2, FFFREE 
R3> FFFREE+2 



<SP)+, @#KPAR5 
<SP)+, R3 
(SP)+, R2 
(SP)+, Rl 



c 
I 
i 
f 
t 
t 
i 
< 

4 

< 
I 

i 
i 
I 
i 
I 
f 



f 

I 
c 
f 

< 
I 
I 



I 
f 
t 
I 

i 

( 



TSLOCK 
FNDCDB 
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i 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



. SejTL FNDCDB 



i_ o c ci t e a C 



DB fur a cha»iriel 



004354 013746 OOOOOOG 



004360 013704 OOOOOOG 

004364 001422 

004366 013705 0000020 

004372 1 1 3700 OOOOOOG 



004376 

004402 132764 OOOOOOG OOOOOOG 

004410 001003 

004412 120064 OOOOOOG 

004416 001407 

004420 016405 000002G 

004424 016404 OOOOOOG 

004430 001362 



004432 000261 
004434 000401 



004436 000241 



004440 012637 OOOOOOG 
004444 000207 



FNDCDB is called to try to find an active CDB block for the current 
user and channel. 

Outputs: 
C-flag set ==> Could not find CDB for channel. 
C~flag cleared ==> Found CDB for channel. 
R4,R5 = Pointer to CDB found. 

FNDCDB: MOV @#KPAR5, -< SP ) 

Get pointer to first CDB for job and see if job has any CDB's 

Get pointer to Ist CDB for this job 

Br if there are none 

Get par mapping for 1st CDB 

Get channel # we are searching for 



MOV 


@#JCDB. R4 


BEQ 


7* 


MOV 


@#JCDB+2, R5 


MOVE 


@#CHNNUM, RO 



1*: 



?*: 



Search CDB chain for job 

MAPTO R5 ;Hap to the next CDB for job 

BITB #FL«SPN3 FC*FLG<R4) ils this a suspended CDB? 

BNE 2* > Br if suspended 

CMPB RO, FCl3CHN<:iM) ; .1 s this the correct CDB? 

BEQ S* i Br if yes 

MOV FC*CLK+2<R4).- R5 .i Get pointer to next CDB for job 

MOV FC«CLK<R4),R4 

BNE 1* ; Loop if more CDB's to check 



There is no CDB for this channel 
7*: SEC J Signal failure on return 



SEC 
BR 



9* 



We found a CDB for this channel 



8*: CLC 

Finished 

9*: MOV <SP)+, @#KPAR5 
RETURN 



j Signal success on return 
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24 

IS. Z7 

26 
27 



010446 
013746 



013700 
016003 
016004 
042703 
1 1 6002 
042702 
020337 
001006 
006302 
016203 
066204 
000402 
000302 
050203 
010367 
010467 



016702 
001421 
016703 

026267 
001004 
026267 
001407 
016203 
016202 
001361 



000261 
000401 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 

16 004446 

17 004450 
18 

19 
20 

21 004454 

22 004460 

23 004464 
004470 
004474 
004500 
004504 

28 004510 

29 004512 

30 004514 

31 004520 

32 004524 

33 004526 

34 004530 

35 004532 

36 004536 
37 

38 
39 

40 004542 

41 004546 

42 004550 

43 004554 

44 004560 

45 004566 

46 004570 

47 004576 

48 004600 

49 004604 

50 004610 
51 

52 
53 

54 004612 

55 004614 
56 

57 
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SBTTL hNDFDB — Locate a FDB for a file 



FNDFDB is called to try to locate a FDB corresponding to a particular file. 
The 2-uiord internal identification for the file is also computed. 

Inputs: 
CHNADR = Pointer to 5 word channel status block for the channel that 
is open to the file. 

Outputs: 
C-flag set ==> Could not find FDB for file. 
C-flag cleared ==> Found FDB for file. 
R2, R3 ~ Pointer to FDB. 
CURFID = 2 word internal file identification. 



0000000 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOC 

OOOOOOG 

177770 

OOOOOOG 



OOOOOOG 
OOOOOOG 



173350 
173346 



173312 

173306 

OOOOOOG 173320 

000002G 173312 

000002G 
OOOOOOG 



FNDFDB: MOV 
MOV 



R4, -(SP) 
@#KPAR5, -(SP) 



Build 2-iuord ID which uniquely identifies the file 



1*: 
7*: 



4$: 



3*: 



Point to channel status block 

Get Channel Status Word 

Get file starting block number 

Get device index number 

Get unit number 

Extract unit number 

Is device a logical disk 7' 

Br if not 

Convert unit number to word table index 

Get real device # and unit # 

Bias starting block number by base of LD 

i Put unit # in upper byte 

j Form composite device ID (dev # & unit #) 
j 1st word of file ID (device # and unit #) 
j 2nd word of file ID (starting block number) 

Search for a FDB which is open to this file 

MOV FFHEAD, R2 ; Get pointer to 1st active FDB 

BEQ 2* i Br if there are no active FDB's 

MOV FFHEAD+2, R3 ; Get par mapping 

MAPTO R3 iMap to the FDB 

CMP FF*FID(R2), CURFID i Compare Ist word of file ID 

BNE 3* ;Br if not this file 

CMP FF*FID+2(R2), CURFID+2 i Compare 2nd word of file ID 

BE(2 6* ;Br if found FDB for file 

MOV FF*FLK+2<R2), R3 J Get pointer to next FDB 

MOV FF*FLK(R2), R2 

BNE 4* ; Loop if more FDB's to check 



MOV 


@#CHNADR, RO 


MOV 


C. CSWtRO), R3 


MOV 


C SBLK(RO). R4 


BIC 


#'^C<CS*NMX>, R3 


MOVE 


C. DEVQ(RO), R2 


BIC 


#'^C<7>, R2 


CMP 


R3, e#LDDEVX 


BNE 


1« 


ASL 


R2 


MOV 


LDPDEV(R2),R3 


ADD 


LDBASE(R2)>R4 


BR 


7* 


SWAB 


R2 


BIS 


R2, R3 


MOV 


R3, CURFID 


MOV 


R4, CURFID+2 



Cannot find a FDB for this file 



SEC 
BR 



; Signal failure on return 



9* 



Found FDB for this file 
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-,70 > 

59 004616 000241 6*: CLC j Signal success on return 

60 

61 

62 

63 004620 012637 0000000 

64 004624 012604 

65 004626 000207 



6*: CLC 




i Finished 




9*: MOV 


<SP)+, e#KPAR5 


MOV 


(SP)+, R4 


RETURN 
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X 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 004630 

16 004632 

17 004634 
10 004636 
19 004640 
20 

21 
22 

23 004644 

24 004650 

26 
27 
28 
29 

30 004652 

31 004656 

32 004662 

33 004670 

34 004674 

35 004700 

36 004704 

37 004706 

38 004710 

39 004712 

40 004714 

41 004722 

42 004726 

43 004732 
44 

45 
46 

47 004734 

48 004740 

49 004742 

50 004746 

51 004752 

52 004756 
53 

54 
55 

56 004762 

57 004766 



au ! ! L_ iif-WKi ! — noniTor usrixes "co snarea riies 



010246 
010346 
010446 
010546 
013746 



004767 
103444 



OOOOOOG 



177504 



SFWRIT is called each time a .WRITE EMT is executed to see if the 
uirite is being directed to a shared file. 
If the file is shared^ the folloming things are done: 
1. A flag is set in the CDB's for all other users indicating the 
file has been modified. 

Inputs: 
CHNNUM = Number of I/O channel 
EMTBLK+2 = File block number 
EMTBLK+4 = Base address of user's buffer 
/ EM1BLK+6 = Number of words being written 

SFWRIT: MOV 
MOV 
MOV 
MOV 
MOV 



R2. -(SP) 




R3, -<SP> 




R4, -<SP) 




R5, -<SP) 




@#KPAR5> - 


- < SP ) 



See if channel is opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



1 See if channel is opened to a shared file 
» Br if not 



016402 OOOOOOG 



016203 
016202 

020204 
001002 
020305 
001403 
1 52762 
016203 
016202 
001362 



005737 
001410 

016402 
016403 
004767 



012637 
012605 



000002G 
OOOOOOG 



OOOOOOG OOOOOOG 

000002G 

OOOOOOG 



OOOOOOG 



OOOOOOG 
000002G 
000532 



OOOOOOG 



j fhis is a write to a shared file. 

i Set file-modified flag in CDB's for all other jobs using this file. 

; <R4, R5 = Pointer to CDB ) 

> 

MAPTO R5 ;Map to the CDB 

MOV FC*FDB<R4), R2 ; Get pointer to the FDB 

MAPTO FC*FDB+2<R4) ; Map to the FDB 

MOV FF«CDB+2<R2),R3 i Get pointer to 1st CDB for the file 

MOV FF*CDB<R2),R2 

3$: MAPTO R3 i Map to the CDB 

CMP R2, R4 i Is the same CDB that is doing the write? 

BNE 1* i Br if not 

CMP R3, R5 

BEQ 2* i Br if yes 

BISB #FL«ACT, FC*FLG<R2)i Set flag saying file has been modified 

MOV FC*FLK+2(R2),R3 ; Get pointer to next CDB 

MOV FC*FLK(R2),R2 

BNE 3* ; Br if there is another CDB 

See if we need to check for updating the shared-file data cache 

j Are we doing data cachingT' 

J Br if not 

; Map to the CDB 

j Get pointer to FDB 

i Check for update to data cache 



1*: 
2*: 



9«: 



TST 


@#NUMDCD 


BEO 


9* 


MAPTO 


R5 


MOV 


FC*FDB<R4),R2 


MOV 


FC*FDB+2<R4), 


CALL 


DCWRT 


Finished 




MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+, R5 
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3(3 UWti 



012604 



59 004772 012603 

60 004774 012602 

61 004776 000207 



nuv I. Sr .' ■*•.■ rC'H- 

MOV <SP)+>R3 

MOV < SP ) +, R2 
RETURN 



I 
I 

i 
i 
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1 

2 

3 

4 

5 

6 005000 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

?3 
24 

26 
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.sBTiL ■«■* Data Caching Routines ** 

Note: The code related to shared file data caching is not loaded 
unless data cachina is manted. 



005000 
005002 
005004 

27 005006 

28 005010 

29 005012 
30 

31 
32 

33 005016 

34 005022 
35 

36 
37 
38 

39 005024 

40 005030 

41 005034 
42 

43 
44 

45 005040 

46 005046 

47 005054 
48 

49 
50 

51 005062 

52 005066 

53 005070 

54 005074 

55 005100 
56 

57 



010146 

010346 
010446 
010546 
013746 



004767 
103447 



OOOOOOG 



177332 



016402 
016403 



013767 
013767 
013767 



005237 
001002 
004767 
004767 
103420 



OOOOOOG 
000002G 



000002G 
000004G 
000006G 



OOOOOOG 

001510 
000540 



1 73032 
173026 
173022 



DCCBAS: 



SBTTL DCRDl 



J Start of data caching code 
Tru to read data from cache 



DCRDl is called from the .READ routine to attempt to obtain 

the data needed by the read from the data cache. 

If the desired data is in the data cache* it is transferred to the 

user ' s buffer. 



Inputs: 
CHNNUM = # of I/O channel 

EMTBLK+2 = File block # where transfer starts 
EMTBLK+4 = Base address of user's buffer 
EMTBLK+6 = Number of words to be transferred 

Outputs: 
C-flag cleared if data was found in cache 

DCRDl: MOV Rl.-(BF) 

MOV R2, - < SP ) 

MOV R3, -<SP) 

MOV R4, -<SP) 

MOV R5, -<SP) 

MOV @#KPAR5> -(SP) 

See if this channel is opened to a shared file 



CALL 
BCS 



FNDCDB 
9* 



> Search for CDB for this channel 

j Br if this channel not opened to shared file 



This channel is opened to a shared file. 
Get pointer to FDB for the file. 



MAPTO 

MOV 

MOV 



R5 i Map to the CDB 

FC*FDB < R4 .> , R2 /Get pointer to the FDB 

FC*FDB+2<R4),R3 



Set up information about the transfer 

MOV @#EMTBLK+2, CBLOCKi Get base block number 

MOV @#EMTBLK+4, CBUF > Get base address of user's buffer 

MOV e#EMTBLK+6» CWORDSi Get # words to transfer 

Tru to find data block in the cache 



1*: 



4*: 



INC 


e#DCTRD 


BNE 


4* 


CALL 


CLRST 


CALL 


FNDDCD 


BCS 


9* 



Found data block in cache 



i Inc total # reads from shared files 

; Br if did not overflow 

i Reset cache statistics 

;See if block is in cache 

; Br if block is not in cache 

Move data to user's buffer 
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TSLOCK 


Shared 


file access cont 


MACRO VOS 


DCRDl - 


— Try t 


o read d 


ata from 


cache 


58 








> 


59 


005102 


005237 


OOOOOOG 




60 


005106 


004767 


001304 




61 








t 


62 








> 


63 








t 


64 


005112 


004767 


001172 




65 








i 


66 








> 


67 








.» 


68 


005116 


005267 


172756 




69 


005122 


062767 


001000 


172752 


70 


005130 


162767 


000400 


172746 


71 


005136 


003351 






72 








i 


73 








t 


74 








i 


75 


005140 


000241 






76 








> 


77 








i 


78 








i 


79 


005142 


012637 


oooooos 


r- 


80 


005146 


012605 






81 


005150 


012604 






82 


005152 


012603 






S3 


005154 


012602 






84 


005156 


012601 






85 


005160 


000207 







I^4C 

CALL 



@#DCCRD 
DCMVTU 



; Inc # reads satisfied by cache data 
i Move data to user's buffer 



Increment use count for cache entry 



CALL DCINCU 
See i f use need more data 



9$. 



INC 


CBLOCK 


ADD 


#512. ,CBUF 


SUB 


#256. , CWORDS 


BGT 


1« 


Successful 


completion 


CLC 




Finished 




MOV 


<SP)-f, «e#KPA«[> 


MOV 


<SP)+, R5 


MOV 


(SP)+, K4 


MUV 


<SP.>+. R3 


MOV 


(SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





> Increment use count for cache entry 



i Increment file block number 

; Advance buffer address 

; Dec # uords left to be transferred 

i Br if more needed 



> Say read was satisfied from cache 
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following read 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
30 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



.toUML UCRD2 — UpdaTe cacne t-oiiowmg reaa 



005162 
005164 
005166 
005170 
005172 
005174 



005200 
005204 



005206 
005212 
005220 



010146 
O 10246 
010346 
010446 
010546 
013746 



004767 
103533 



0000000 



177150 



DCRD2 is called folloiuinci a .READ operation to see if the data 

just read should be placed in the data cache. 

Inputs: 

CHNNUM = # of I/O channel 

EMTBLK+2 = File block number 

EMTBLK+4 = Base address of user's buffer 

EriTBLK+6 = Number of words transferred 

DCRD2: MOV R1,-<SP) 
MOV R2, -(SP) 
MOV R3, -<SP) 
MOV R4, -<SP) 
MOV R5, -<SP) 
MOV e#KPAR5, -<SP) 



Bee if this channel is opened to a shared file 



CALL 
DCS 



FNDCDB 

9* 



* Search for CDB for this channel 

; Br if channel not open to shared file 



132764 
001125 



OOOOOOG 0000000 



005222 



005226 
005234 
005242 
005250 
005254 
005260 



005264 
005272 
005274 
005300 



005302 
005306 



004737 OOOOOOG 



013767 
013767 
013767 

016402 
016403 



026727 
103453 
004767 
103037 



004767 
103445 



000002G 172644 
000004G 172640 
000006G 172634 

OOOOOOG 
000002G 



See if data caching is being suppressed on this channel 

MAPTO R5 >Map to the CDB 

BITB #FL*NDC. FC*FLG<R4.>i Is data caching being suppressed? 

BNE 9* i Br if yes 

We are doing data caching for this file. 
Wait for . READ operation to finish. 

CALL e#IOWAIT ;Wait for .READ to finish 

Set up data about the transfer 

MOV ®#EMTBLK+2, CBLOCKi File block number 

MOV e#EMTBLK+4, CBUF ; Buf f er address 

MOV @#EMTBLK+6, CWORDS; Number of words read 

MAPTO R5 iMap to the CDB 

MOV FC*FDB(R4). R2 ; Get pointer to FDB for file 

MOV FC*FDBH-2 ( R4 ) , R3 



See if data block is currently in cache 



172614 000400 3*: 
000340 



CMP 


CWORDS. #256. 


BLO 


2* 


CALL 


FNDDCD 


BCC 


1* 



; Are there at least 256 words left? 

; Br if not — Don't have a block left 

j See if this block is in the cache 

; Br if yes — Don't need to put it there 



This data block is not currently in the cache 



Put it there 



000646 



CALL 
BCS 



NEWDCD 
2* 



j Get a new data cache descriptor block 
i Br if no free cache descriptor blocks 



Initialize a new data cache descriptor block <pointer in R4*R5) 



I 

C 



i 
I 

i 



c 

f 
i 
i 
( 

4 
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58 


005310 








59 


005314 


016200 


0000000 




60 


005320 


016201 


0000020 




61 


005324 


010462 


OOOOOOG 




62 


005330 


010562 


0000020 




63 


005334 








64 


005340 


010064 


0000000 




65 


005344 


010164 


0000020 




66 


005350 


010264 


OOOOOOG 




67 


005354 


010364 


0000020 




68 


005360 


016764 


172514 


OOOOOOG 


69 

70 
71 


005366 


012764 


177777 


OOOOOOG 










72 










73 


005374 


004767 


001114 




74 










75 










76 










77 


005400 


005267 


172474 




78 


005404 


062767 


001000 


172470 


79 


005412 


162767 


000400 


1 72464 


80 


005420 


003321 






81 










82 










S3 










84 


005422 








85 


005426 


016204 


0000000 




86 


005432 


016205 


0000020 




87 


005436 


001416 






88 


005440 








89 


005444 


026427 


OOOOOOG 


177777 


90 


005452 


001010 






91 


005454 


012764 


000004 


OOOOOOG 


92 


005462 


016405 


0000020 




93 


005466 


016404 


OOOOOOG 




94 


005472 


001362 






95 










96 










97 










98 


005474 


012637 


OOOOOOG 




99 


005500 


01260D 






100 


005502 


012604 






101 


005504 


012603 






102 


005506 


012602 






103 


005510 


012601 






104 


005512 


000207 







MAP TO R3 .; Map to the FDB 

MOV FF*DCD<R2),R0 i Get pointer to Ist DCD for file 

MOV FF*DCD+2 < R2 ) , R 1 

MOV R4, FF*DCD(R2) i Set us as the 1st DCD for file 

MOV R5, FF*DCD+2<R2) 

MAPTO R5 J Map to the new DCD 

MOV RO, DC*LNK<R4) J Add us to chain for this FDB 

MOV R 1 , DC*LNK+2 < R4 ) 

MOV R2, DC$FDB<R4) iMake DCD point to FDIJ 

MOV R3, DC$FDB+2<R4) 

MOV CBL0CK,DC*BLK(R4); Remember the file block number 

MOV #~1, DC*USE<R4) ; Temporar i ly set use count very high 

Move data from user's buffer to cache 

CALL DCMVTC i Move data to cache 



See 



£ -t K « 



there is more data to be moved to cache 



1$: 



INC 


CBLOCK 


ADD 


#512. , CBUF 


SUB 


#256. , C WORDS 


BGT 


3« 



iAdvance file block number 
/Advance buffer address 
j Reduce # words left to transfer 
; Br if more data remaining 



Reset USB counters for 



cache blocks just added 



2$: 



4*: 



MAPTO 

MOV 

MOV 

BEQ 

MAPTO 

CMP 

BNE 

MOV 

MOV 

MOV 

BNE 



Finished 



9$: 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



R3 iMap to the FDB 

FF«DCD<R2),R4 > Get pointer to 1st DCD for file 

FF*DCD+2<R2),R5 

9* iBr if not DCD's for file 

R5 ; Map to the DCD 

DC*USE<R4), #-1 /Is this one that we just addedT' 

9* ;Br if not 

#4/ DC*USE<R4> /Set initial use count 

DC*LNK+2<R4),R5 i Chain to next DCD 

DC*LNK<R4>/ R4 

4* iBr if more DCD's to check 



<SP)+, @#KPAR5 
<SP)+, R5 
(SP)+, R4 
(SP)+, R3 
(SP)+, R2 
(SP)+, Rl 
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17 

IS 

19 

20 

21 

2c' 

?3 

24 

26 
27 
28 
29 
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41 
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Shared 
-- Check 



file ace 
for ujri 
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005514 
005516 



005520 
005526 
005534 



005542 
005546 
005550 
005554 
005560 



005562 
005566 
005574 
005576 
005602 
005604 



005610 
005614 
005622 
005630 



005632 
005634 

005636 



010446 
010546 



013767 
013767 
013767 



0000020 172352 
000004G 172346 
000006G 172342 



OOOOOOG 



001002 
004767 
004767 
103413 



005237 
026727 
103003 
004767 
000402 
004767 



005267 
062767 
162767 
003344 



012605 
012604 
000207 



001030 
000060 



OOOOOOG 
172312 000400 



000704 



172264 

001000 172260 

000400 172254 



. tsB ! ! L 



ucWrt 



Check for writes to shared file data cache 



DCWRT is called each time a .WRITE operation is done to a shared file. 
It checks to see if the data being written needs to be placed in the 
shared file data cache. 

Inputs: 
R2j R3 = Pointer to FDB for file being written to. 
CHNNUM = Number of I/O channel. 
EMT13LK+2 = File block number 
EMTBLK+4 = Base address of user's buffer 
EMT13LK+6 = Number of words being written 



DCWRT: 



MOV 
MOV 



R4, -<SP) 
R5, ~<SP.> 



Set up information about the transfer 



MOV 
MOV 
MOV 



«#EMTBLK+2, CBLOCK; Bl oc k number 

@#EMTBLK+4, CBUF i Buf f er address 

@#EMTBLK+6, CWORDS; Number of words being written 



Bpp if data block i<= ir rarhp nou' 



7*: 





S#DCTWR 


BNE 


7* 


CALL 


CLRST 


CALL 


FNDDCD 


BCS 


5« 



4*: 



J Inc total # writes to shared files 
Br if count did not overflow 
Reset statistics 

Is this block in the cache nowT' 
Br if not 

Block is in cache — Upd£3te it 

; Inc # writes that update cache 

i Do we have a full block of data? 

i Br if yes 

; Remove the cache entry if short write 

; Move data from user's buffer to cache 

See if there are more blocks to update 



INC 


@#DCCWR 


CMP 


CWORDS> #256 


BHIS 


4* 


CALL 


RELDCD 


BR 


5* 


CALL 


DCMVTC 



5*: 



INC 
ADD 
SUB 
BQT 

Finished 



MOV 
MOV 
RETURN 



CBLOCK 
#512. , CBUF 
#256. > CWCRDS 
6* 



<SP)+, R5 
(SP)+, R4 



i Increment block number 
i Advance buffer address 
;Reduce # words left 
; Br if some data left 



C 
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FNDDCD 
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- Try to find data cache descriptor for data block 



2 
3 
4 
5 

a 

7 

s 

9 
10 

11 

12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



005640 013746 OOOOOOG 



005644 

005650 016204 OOOOOOG 

005654 001416 

005656 016205 000002G 

005662 016700 172212 



005666 

005672 020064 OOOOOOG 

005676 001407 

005700 016405 000002G 

005704 016404 OOOOOOG 

005710 001366 



005712 000261 
005714 000401 



005716 000241 



005720 012637 OOOOOOG 
005724 000207 



. ojB I ! L r!'MJ.'i."_-JL' * ry to ri'iu QciVm uaunt; anm, i- 1 p uur vOf osta Dauck 

FNDDCD is called to try to fir.d a data cache descriptor for a disk 
data block that is being held by the shared file data cache. 

Inputs; 
R2, R3 = Pointer to FDB for shared file. 
CBLOCK = Block number 

Outputs: 
C~flag cleared if block is currently in cache. 
R4,R5 = Pointer to data cache descriptor block for entry if found. 

FNDDCD : MOV @#KP AR 5. - ( SP ) 

Get pointer to 1st DCD for this file 

MAP TO R3 .;Map to the FDB 

MOV FF*DCD<R2>. R4 i Get pointer to 1st DCD for file 

BEQ 2* i Br if file has no DCD's 

MOV FF«DCD+2<R2), R5 

MOV CBLOCK, RO .; Get file block number 



Search for DCD for block of interest 



1*; 



MAP TO 

CMP 

BEQ 

MOV 

MOV 

BNE 



RO.. DC$BLK<R4) 
3* 

DC*LNK+2<R4)>R5 
DC«LNK<R4>, R4 



Map to the DCD 

Is this DCD for the right biockT' 

Br if yes 

Get pointer to next DCD 



1* ; Br if more DCD's for this file 

Could not find data cache entry for this block 



SEC 
BR 



> Signal failure on return 



9* 



Found data cache entry for block 



3*: CLC 
Finished 



i Signal success on return 



9$: 



MOV (SP) +^, ©#KPAR5 
RETURN 
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005726 010446 
005732 



013746 OOOOOOG 



005736 

005742 016204 OOOOOOG 

005746 016205 000002G 

005752 001417 

005754 005062 OOOOOOG 

005760 005062 000002G 

005764 

005770 005064 OOOOOOG 

005774 005064 000002G 

006000 016405 000002G 

006004 016404 OOOOOOG 

006010 001365 



006012 012637 

006016 012605 

006020 012604 

006022 000207 



OOOOOOG 



su ! I L. UL-SsDUD 



Release all data cache entries for a file 



CLSDCD is called to release all data cache entries associated with 
a shared file. 



Inputs: 
R2, R3 = Pointer to FDB for the file 



CLSDCD: MDv 

W V 

MOV 



R4, -<SF) 
R5, -(SF> 
@#KPAR5, -<SP) 



Release ail data cache blocks associated with the file 



4*: 



MAP TO 

MOV 

MOV 

BEQ 

CLR 

CLR 

MAP TO 

CL.R 

CLR 

MOV 



BNE 
Finished 



5*: 



MOV 
MOV 
MOV 
RETURN 



R3 ;Map to the FDB 

FF*DCD<R2).. R4 ; Point to 1st DCD 

FF*DCD+2<R2), R5 

5* j Br if no data cache descriptors for file 

FF*DCD(R2) > Say FDB has no associated cache descriptors 

FF*DCD+2(R2> 

R5 ; Map to data cache descriptor 

DC*FDB<R4) ; Say data cache descriptor is free 

DC*FDB+2(R4) 

DC*LNK+2<K4), R£> i Get pointer to next DCD 

DC*LNK(R4), R4 

4* iBr if more DCD ' s to free 



<SP)+, @#KPAR5 
<SP)+, R5 
<SP)+, R4 
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TSLOCK 


Shared 


file access cont 


RELDCD - 

1 
2 
3 


'- Release a dat 


a cache 


4 
5 
6 
7 
8 








9 


006024 


010146 




10 


006026 


010246 




11 


006030 


010346 




12 
13 
14 


006032 


013746 


0000000 








15 








16 


006036 






17 


006042 


016400 


0000000 


18 


006046 


016401 


0000020 


19 


006052 


016402 


OOOOOOG 


20 


006056 


016403 


0000020 


21 


006062 


005064 


OOOOOOG 


22 


006066 


005064 


0000020 


23 


006072 


062702 


OOOOOOC 


24 


006076 






25 


006102 


026204 


OOOOOOG 


26 


006106 


001003 




27 


006110 


026205 


0000020 


28 


006114 


001405 




29 


006116 


016203 


000002G 


30 


006122 


016202 


OOOOOOG 


31 


006126 


000763 




32 


006130 


010062 


OOOOOOG 


33 


006134 


010162 


000002G 


34 








35 








36 








37 


006140 


012637 


OOOOOOG 


38 


006144 


012603 




39 


006146 


012602 




40 


006150 


012601 




41 


006152 


000207 
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neii?«is>B d 



SC h i 



IC11.CI i.«3i.ri«? t? 



•ntry 



RELDCD is called to release (deallocate) a data cache entry and 
mark it as free. 

Inputs: 
R4, R5 = Pointer to DCD to be released. 



RELDCD: MCV 
MOV 
MOV 
MOV 



R4 / C^n ^ 

R2. -<SP) 
R3, -<SP) 
e#KPAR5> -<SP) 



Unlink DCD from linked list associated with shared file 



1*; 



3*: 



1%: 



MAPTO 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

ADD 

MAPTO 

CMP 

BNE 

CMP 

BEQ 

MOV 

MOV 

BR 

MOV 

MOV 



Finished 



MOV 
MOV 
MOV 
MOV 
RETURN 



R5 ■> Map to the DCD 

DC*LNK(R4), RO i Get pointer to DCD that follouis our one 

DC*LNK+2<R4)> Rl 

DC*FDB<R4)> R2 J Get pointer to FDB 

DC*FDB+2(R4), R3 

DC«FDB<R4) ;Mark the DCD as free 

DC*FDB+2<R4) 

#FF«DCD-DC*LNK.. R2 ;Fake pointer to link cell 



, Map to the next DCD < or FDB if 1st time) 

Are UJG ner^t DCD on list? 
i Br if not 



R3 

DC*LNK<R2), R4 

3* 

DC*LNK-+-2(R2),R5 

2* ; Br if yes 

DC*LNK+2(R2),R3 i Get pointer to next DCD 

DC*LNK<R2),R2 

1* ; Go chec k it 

ROi DC$LNK<R2) ; Relink chain around us 

Rl, DC*LNK+2<R2) 



<SP)+, @#KPAR5 
<SP)+, R3 
(SP)+, R2 
<SP)+, Rl 
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-- Locate a free data cache descriptor 



006156 010246 
006160 010346 
006162 013746 OOOOOOG 



006166 013701 OOOOOOG 

006172 016704 171676 

006176 016705 171674 

006202 012700 177777 

006206 

006212 005764 OOOOOOG 

006216 001425 

006220 026400 OOOOOOG 

006224 103004 

006226 010402 

006230 010503 

006232 016400 OOOOOOG 

006236 016405 000002G 

006242 016404 OOOOOOG 

006246 077121 



006250 020027 177777 

006254 001002 

006256 000261 

006260 000405 



006262 010204 

006264 010305 

006266 004767 

006272 000241 



006274 012637 

006300 012603 

006302 012602 

006304 012601 

006306 000207 



1— »T!^ /-%*-* 



OOOOOOG 



sB I TL NtWDCD — Locate a free data cache descriptor 

NEWDCD is called to find a data cache descriptor to be used for a 

neuj cache entry. It finds a free entry or the least used non— free entry. 

Outputs: 
C~flag set on return if there are no free entries. 
R4, R5 == Pointer to new entry if one was found. 



EWDCD: 


MOV 


Rl, -<SP) 




MOV 


R2, -<SP) 




MOV 


R3, -<SP) 




MOV 


@#KPAR5, -<SP) 



Search for a free or least-used data cache descriptor 



1*: 



?*: 



MOV 


@#NUMDCD, Rl 


MOV 


DCDBAS, R4 


MOV 


DCDBAS+2, R5 


MOV 


#-l.RO 


MAP TO 


R5 


TST 


DC*FDB<R4.) 


BEQ 


4« 


CMP 


DC*USE<R4),R0 


BItIS 


2$ 


MOV 


R4, R2 


MOV 


R5, R3 


MOV 


DC*USE<R4),R0 


MOV 


DC*NXT+2<R4), 


MOV 


DC*NXT<R4),R4 


SOB 


Rl, 1* 



Max # cache entries we aTe allowed to use 
Point to 1st data cache descriptor 

Initialize use count 

Map to the DCD 

Is this cache entry free? 

Br if yes — Use this entry 

Is this entry less used than any found so far 

Br if not 

Save pointer to least used entry 

> Save associated use count 
; Get pointer to next DCD 

i Loop if we are allowed to use more 



Finished searching through all cache descriptors. 
See if we found one we can use. 



CMP 


RO, #-1 


BNE 


3* 


SEC 




BR 


9* 



3*: 



4$: 



9*: 



>Did we find an available oneT' 

j Br if yes 

J Signal failure on return 



We found a cache entry that we can use 

i Get pointer to entry to use 



MOV 


R2, R4 


MOV 


R3. R5 


CALL 


RELDCD 


CLC 




Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+,R1 


RETURN 





j Free the entry 

i Signal success on return 
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— Increment use count for data cache entry 



AnC ~ &•>(«? Hi* use couni/ lOr ua^a cacnE eiii.ry 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



DCINCU is called to increment the use counter for a data cache entry. 
If the total number of increments done for all entires reaches 
DCAGE, all of the use counts are divided by two. 

Inputs: 
R4. R5 = Pointer to data cache descriptor which is to be incremented. 



006310 
006312 
006314 



006320 
006324 



006334 
006340 

006344 
006350 
006354 
006360 
006364 
006370 



006372 
006376 



006404 
006410 
006412 
006414 



010246 
010346 
013746 



005237 
023727 
103417 



005037 
016702 

016703 

006262 
016203 
016202 
001367 



OOOOOOG 



OOOOOOG 

OOOOOOG OOOOOOG 



nrThirn- ivtnu 

MOV 
MOV 



R3, -<SP) 
©#KPAR5. "(SP) 



See if it is time to divide all use counts 

INC e#DCTDTU i Increment total use count 

CMP S#DCTOTU, #DCAeE ils it time to divide all use counts? 

BLD 2* i Br if not 



012637 
012603 
012602 
000207 



Divide all use counts by two 



OOOOOOG 

171530 

171526 

OOOOOOG 
000002G 
OOOOOOG 



Reset total use counter 
Get pointer to 1st DCD 



CLR @#DCTOTU 

MOV DCDBAS, R2 

MOV DCDBAS+2, R3 

1-$; MAPTO R3 ; Map to a DCD 

ASR DC*USE(R2) i Divide the use count by 2 

MOV DC*NXT+2(R2), R3 i Get pointer to next DCD 

MOV DC*NXT(R2),R2 

BNE 1* j Loop if more to do 

Increment use count for specified entry 



2*: 



062764 000002 OOOOOOG 



OOOOOOG 



MAPTO 


R5 


ADD 


#2, DC*USE<R4) 


Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


RETURN 





i Map to the entry 

i Increment use count 
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TSLOCK 


Shared 


file access cont 


DCMVTU - 


— Move 


data from cache 


1 
2 








3 








4 








5 








h 








7 








8 








9 








10 


006416 


010246 




11 


006420 


010346 




12 


006422 


013746 


OOOOOOG 


13 








14 








15 








16 


006426 


016703 


171450 


17 


006432 


010300 




18 


006434 


004737 


0000000 


19 








20 








21 








22 


006440 






23 


006444 






24 








25 








26 








27 


006452 


012702 


OOOOOOG 


28 


006456 


012700 


000400 


29 


006462 


026700 


171416 


30 


006466 


103002 




31 


006470 


016700 


171410 


32 


006474 


012246 




33 


006476 


106623 




34 


006500 


077003 




35 








36 








37 








38 


006502 


012637 


OOOOOOG 


39 


006506 


012603 




40 


006510 


012602 




41 


006512 


000207 





. 3BTTL DCMvT'J — Move data from cache to user's buffer 

DCMVTU is called to move data from a cache entry to the user's buffer. 

Inputs: 
R4,R5 = Pointer to data cache descriptor 
CBUF = Virtual address of user's data buffer 
CWORDS = Number of words to move 



DCMVTU: MOV 
MOV 
MOV 



R2, -(SP) 
R3i -(SP) 
©#KPAR5, -<GP) 



Validate the buffer address 



MOV 


CBUF, R3 


MOV 


R3, RO 


CALL 


@#VALADW 



; Get the buffer address 
; Validate it 



Map par 5 to the cache buffer 



MAP TO 
MAP TO 



R5 
DC*PAR(R4) 



Move data from cache to K.>'-mT 



MOV 


#VPAR5, R2 


MOV 


#256. , RO 


CMP 


CWORDS, RO 


BHIS 


1* 


MOV 


CWORDS, RO 


MOV 


(R2)+,-(SP) 


MTPD 


<R3) + 


SOB 


RO, 1* 


Finished 




MOV 


<SP)+, @#KPAR5 


MOV 


<SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





; Map to the DCD 

; Map par 5 to cache buffer 

s buffer 

Get virtual address of cache buffer 

Get max # words we can move 

Do we have that much to move? 

Br if yes 

Get ^ words to move 

Get word from cache buffer 

Move to user's buffer 

Loop if more words to move 
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buffer to cache 






3 








4 








5 








6 








7 








8 








9 








10 


006514 


010246 




11 


006516 


010346 




12 


006520 


013746 


OOOOOOG 


13 








14 








15 








16 


006524 


016703 


171352 


17 


006530 


010300 




IS 


006532 


004737 


OOOOOOG 


19 








20 








21 








22 


006536 






23 


006542 






24 








25 








26 








27 


006550 


012702 


OOOOOOG 


28 


006554 


012700 


000200 


29 


006560 


106523 




30 


006562 


012622 




31 


006564 


106523 




32 


006566 


012622 




33 


006570 


077005 




34 








35 








36 








37 


006572 


012637 


OOOOOOG 


38 


006576 


012603 




39 


006600 


012602 




40 


006602 


000207 





DCMVTC is called to move a block of data (256 words) from the user's 
buffer to a cache buffer. 

Inputs: 
R4,R5 = Pointer to cache descriptor block 
CBUF = Virtual address of user's buffer 



DCMVTC : MOV 
MOV 
MOV 



R2- -(SP) 
R3, -<SP) 
e#KPAR5, -<SP) 



Validate the buffer address 



MOV 


CBUF, R3 


MOV 


R3, RO 


CALL 


e#VALADW 



i Get user's buffer address 
iValidate it 



Map par 5 to the cache buffer 



MAP TO 
MAP TO 



R5 
DC*PAR(R4) 



i Map to the BCD 

! Map to the cache buffer 



Move data from user's buffer to the cache buffer 



1*: 



MOV 


#VPAR5, R2 


MOV 


#128. >R0 


MFPD 


(R3) + 


MOV 


(SP)+, <R2)+ 


MFPD 


(R3) + 


MOV 


(SP)+, (R2) + 


SOB 


RO, 1* 


Finished 




MOV 


(SP)+, e#KPAR5 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





Get virtual address of cache buffer 

Move 128 double-words 

Get a word from user's buffer 

Move to cache buffer 

Get another word from user's buffer 

Move to cache buffer 

Loop if more to move 
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CLRST — Reset data cache statistics 



\ 



t 
f 
< 

c 

K 

( 
< 



CLRST: 



•I 
J. 

D 

3 
4 
5 

6 006604 005037 0000000 

7 006610 005037 OOOOOOG 

8 006614 005037 OOOOOOG 

9 006620 005037 OOOOOOG 
10 

11 
12 

M *~I \^^^\mf^m^ t^^ i \-r v/ \./ g^ W / 

14 
15 
16 

17 001626 

18 

19 000001 

Errors detected: 

*-K-« Assembler stat i stit. b 



Work fiie reads: 

Work file writes: 

Size of ujork file: 8510 Words < 34 Pages) 

Size of core pool: 17920 Words < 70 Pages) 

Operating system: RT-11 

Elapsed time: 00:00:33.32 

DK: TSLOCK, LP: TSLOCK=DK: TSLOCK/C/N: SYM 



313 ! ! L. 'w!_K!3 I 



Re&et data cache statistics 



CLRST is called to reset the usage statistics counters that 
accumulate data reaardina data cachino. 



CLR 
CLR 

CLR 

WL-h 



@#DCTRD 
@#DCCRD 
@#DCTWR 
@#DCCWR 



i Total number of reads from shared files 
; Number of reads satisfied by cache 
.: Total number of writes to shared files 
i Number of writes that update cache data 



Finished 

RETURN 
Compute size of code related to data caching 
DCCSIZ ^ . -DCCBAS iSize of data caching code 
. END 
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c 
I 
f 
I 
f 
I 
f 
I 

€ 

i 

i 
I 

i 

h 



. . . V2 


16-29 


16-29 


16-29 


16-29 


16-29 


16-29 


16=29 


16-29 


16-29 


16- 


-29 


16- 


-29 


16- 


-29 




16-29 


16-29 


16-29 


16-29 


16-29# 


16-29# 


16-29# 


17-21 


17-21 


17- 


-21 


17- 


-21 


17- 


-21 




17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17-21 


17 


-21 


17- 


-21 


17- 


-21 # 




17-21# 


17-21# 


26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26- 


-IS 


26- 


-IS 


26- 


-18 




26-18 


26-18 


26-18 


26-18 


26-18 


26-18 


26-lS# 


26-18# 


26-18# 














AC*EI 


3-1 1# 


3-23 




























AC*EU 


3-10# 


3-24 




























AC*PI 


3-9# 


3-25 


3-35 


3-37 
























AC*PU 


3-8# 


3-26 


3-37 


























AC*SI 


3-7# 


3-27 


3-35 


3-36 


3-37 


3-38 




















AC*SU 


3-6# 


3-28 


3-37 


3-38 
























ACCBIT 


3-23# 


17-21 


17-21 


























ACCMSK 


3-33# 


16-29 


16-29 


























ALLOC 


4-29 


4-43 


4-59 


4-74 


5-24 


6-16# 




















ALLOCL 


4-25 


4-39 


4-55 


4-70 


5-15# 






















C. CSW 


1-42 


8-22 


28-22 


























C. DEVQ 


1-42 


28-25 




























C. SBLK 


1-42 


28-23 




























CBLOCK 


3-48# 


30-45* 


30-68* 


31-37* 


31-68 


31-77* 


32-19* 


32-42* 


33-22 














CBUF 


3-49# 


30-46* 


30-69* 


31-38* 


31-78* 


32-20* 


32-43* 


38-16 


39-16 














CHKABT 


1-38 


21-25 




























CHKACC 


8-94 


17-14# 




























CHKLOK 


19-71 


20-14# 




























CHNADR 


1-34 


8-PA 


2B-PA 


























CHNNUM 


1-35 


10-31 


10-59 


16-24 


27-18 






















CHNULK 


13-17 


14-29 


19-33 


22~9# 


25-17 






















CLRST 


30-53 


32-27 


40-6# 


























CLSCDB 


1-70 


8-17 


8-61 


8-103 


18-18 


25-10# 




















CLSDCD 


8-98 


25-72 


34-9# 


























CORUSR 


1-34 


10-25 


16-23 


20-27 


21-37 


24-27 




















CS*N«X 


1-43 


28-24 




























CS*OPN 


1-43 


8-22 




























CURFID 


3-54# 


8-86 


8-87 


28-35* 


28-36* 


28-44 


28-46 


















CWORDS 


3-50# 


30-47* 


30-70* 


31-39* 


31-46 


31-79* 


32-21* 


32-34 


32-44* 


38- 


-29 


38- 


-31 






DC**SZ 


1-34 


4-67 




























DC$BLK 


1-30 


31-68* 


33-27 


























DC*FDB 


1-37 


31-66* 


31-67* 


34-22* 


34-23* 


35-19 


35-20 


35-21* 


35-22* 


36- 


-22 










DC*LNK 


1-37 
35-25 


31-64* 
35-27 


31-65* 
35-29 


31-92 
35-30 


31-93 
35-32* 


33-29 
35-33* 


33-30 


34-24 


34-25 


35- 


-17 


35- 


-18 


35- 


-23 


DC«NXT 


1-36 


4-71* 


4-72* 


4-84 


4-85 


36-29 


36-30 


37-27 


37-28 














DC*PAR 


1-36 


4-82* 


38-23 


39-23 
























DC*USE 


1-37 


31-69* 


31-89 


31-91* 


36-24 


36-28 


37-26* 


37-34* 
















DCAGE 


1-31 


37-17 




























DCCBAS 


30-6# 


40-17 




























DCCRD 


1-30 


30-59* 


40-7* 


























DCCSIZ 


1-23 


40-17# 




























DCCWR 


1-31 


32-33* 


40-9* 


























DCDBAS 


3-47# 


4-65* 


4-66* 


4-78 


4-79 


36-18 


36-19 


37-23 


37-24 














DCINCU 


30-64 


37-10# 




























DCMVTC 


31-73 


32-38 


39-1 0# 


























DCMVTU 


30-60 


38-10# 




























DCRDl 


1-71 


30-24# 




























DCRD2 


1-72 


31-12# 




























DCTOTU 


1-31 


37-16* 


37-17 


37-22* 
























DCTRD 


1-30 


30-51* 


40--6* 


























DCTWR 


1-30 


32-25* 


40 ~S* 
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DCWRT 


29-52 


32-14# 
























DOCDPN 


1-60 


S-6# 
























DOCULK 


1-65 


13-6# 
























DOOPAP 


1-59 


7-14# 
























DORLK 


1-63 


11 -6# 
























DOSFCK 


1-67 


15-10# 
























DOTLK 


1-64 


12-6# 
























DOULKl 


1-66 


i4-6# 
























ECO 


2-4# 


























ECl 


2-5# 


8-27 


11-15 


12-12 


13-12 


14-12 
















EC2 


2-6# 


8-35 


15-26 


19-107 




















EC3 


2-7# 


8-62 


12-30 






















EC4 


2-8# 


8-104 


12-36 






















EMTBLK 


1-34 
32-20 


7-14 
32-21 


11-21 


12-17 


14-23 


30-45 


30-46 


30-47 


31-37 


31-38 


31-39 


32- 


-19 


EMTXIT 


1-43 


8-123 


11-40 


12-24 


13-21 


14-46 


15-31 














ENQTL 


1-27 


24-34 
























FC**SS 


1-43 


























FC*ACC 


1-29 


16-31* 


17-36 






















FC*CHN 


1-28 


10-31 


10-59* 


16-24* 


27-25 


















FC«CLK 


1-29 


4-56* 


4-57* 


8-40 


8-41 


16-35* 


16-36* 


25-22 


25-23 


25-24 


25-25 


25- 


-27 




25-29 


25-30 


25-33* 


25-34* 


25-39* 


25-40* 


27-27 


27-28 












FCfFDB 


1-28 


8-118* 


8-119* 


12-32 


12-33 


19-49 


19-50 


21-20 


21-21 


23-23 


23-24 


25- 


-49 




25-50 


29-31 


29-32 


29-50 


29-51 


30-40 


30- -41 


31-41 


31-42 










FC*FLG 


1-39 
23-22* 


9-20* 
27-23 


10-27 
29-40* 


10-45 
31-27 


10-60* 


14-18 


1 5-20 


15-25* 


16-27* 


19-25 


19-86* 


22- 


-16 


FC*FLK 


1-28 


8-116* 


8-117* 


10-33 


10-34 


10-49 


10-50 


17-41 


17-42 


20-45 


20-46 


25- 


-47 




25-48 


25-54 


25-56 


25-58 


25-60 


25-61 


25-63* 


25-64* 


29-41 


29-42 








FC*LBN 


1-29 


1-36 


4-51 


14-35 


16-20 


19-41 


19-96 


20-37 


22-26 










FC*NLB 


1-43 


19-38 


19-87* 


19-93 


19-100* 


20-32 


23-21* 














FC*UN 


1-29 


10-29 


10-47 


16-23* 


20-34 


















FCFREE 


3-45# 


4-47* 


4-48* 


8-33 


8-37 


8-40* 


8-41* 


25-39 


25-40 


25-41* 


25-42* 






FF$*SZ 


1-36 


4-35 


8-73 






















FF*CDB 


1-32 
20-26 


8-111 
25-54 


8-112 
25-77 


8-113* 
29-33 


8-114* 
29-34 


10-22 


10-23 


10-42 


10-43 


17-29 


17-30 


20- 


-24 


FF$DCD 


1-40 
34-20* 


31-59 
35-23 


31-60 


31-61* 


31-62* 


31-85 


31-86 


33-19 


33-21 


34-16 


34-17 


34- 


-19* 


FF$FID 


1-32 


8-86* 


8-B7* 


28-44 


28-46 


















FF*FLG 


1-39 


12-34 


19-64 


19-83* 


23-27* 


















FF«FLK 


1-32 


4-40* 


4-41* 


8-70 


8-71 


8-79* 


8-80* 


26-16 


26-17 


26-19 


26-20 


26- 


-22 




26-24 


26-25 


26-28* 


26-29* 


26-34* 


26-35* 


28-48 


28-49 












FF«FWD 


1-32 


21-46 


21-68 


23-31 


23-32 


















FF*NLB 


1-39 


19-56 


19-84* 


19-102* 


23-26* 


23-54 
















FFFREE 


3-43# 


4-33* 


4-34* 


8-56 


8-68 


8-70* 


8-71* 


26-34 


26-35 


26-36* 


26-37* 






FFHEAD 


3-44# 


8-79 


8-80 


S-Sl* 


8-82* 


26-18 


26-18 


28-40 


28-42 










FL*ACT 


1-29 


15-20 


15-25 


29-40 




















FL*EFI_ 


1-39 


14-18 


19-25 


19-86 


22-16 


23-22 
















FL*NDC 


1-30 


16-27 


31-27 






















FL«SPN 


1-29 


9-20 


10-27 


10-45 


10-60 


27-23 
















FNDCDB 


8-11 


9-13 


11-10 


12-10 


13-10 


14-10 


15-14 


18-12 


27-1 1# 


29-23 


30-33 


31- 


-21 


FNDDCD 


30-54 


31-48 


32-28 


33~14# 




















FNDFDB 


8-50 


10-14 


28-16# 






















FREFDB 


25-83 


26-8# 
























FT*EFL 


1-39 


12-34 


19-64 


19-83 


23-27 


















FW**SZ 


1-36 


4-20 
























FW*DBN 


1-33 


21-38* 


23-41 


23-48 


23-56 


23-61 
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FW*UN 
FW*WLK 



FWFREE 

INICDB 

lOWAIT 

JCDB 

KPAR5 



LDBASE 

LDDEVX 

LDPDEV 

LKWAIT 

LOKCSH 

LOKINI 

LDKMEM 

LPRI 

LSTATE 

NEWDCD 

NLINES 

NUMCDB 

NUMDCD 

OPNCOM 

QHIPRI 

QNSPND 

RELDCD 

RESTRT 

S*SFWT 

SETERR 

SFCLS 

SFRSST 

SFSVST 

SFWRIT 

TRYLK 

TSLOCK 

UNLOCK 

VALADW 

VMLBLK 

VMXSF 

VMXSFC 

VNUMDC 

VPAR5 



1 _TO 

1-33 
21-54* 
23-44 
3-46# 
8-46 
1-30 
1-35 
1-43 
9-24« 
16-17* 
19-85* 
21-65* 
23-55* 
26-11 
29-30* 
31-63* 
35-12 
38-22* 
1-37 
1-41 
1-41 
11-35 
1-35 
1-5S 
1-37 
1-27 
1-27 
31-53 
1-33 
1-31 
1-35 
7-15 
1-38 
1-38 
32-36 
23-43 
1-38 
1-43 
1-68 
1-62 
1-61 
1-69 
11-26 
1-23 
1-68 
14-41 
1-31 
1-34 
1-33 
1-33 
1-34 
1-37 



21-37* 
4-26* 
21-66 
23-45 

4-21* 
16-11# 
31-33 
16-35 
4-11 
10-10 
16-42* 
19-92* 
21-69* 
23-74* 
26-15* 
29-32* 
31-84* 
35-16* 
38-23* 
28-31 
28-27 
28-30 
21-i0# 
4-80 
4-6# 
4-16 
24-31 
24-28 
36-10# 
4-23 
8-38* 
8-96 
8-1 1# 
24-19 
21-59 
35-9# 
23-70 
21-58 
8-28 
lS-6# 
10-6# 
9-7# 
29-15# 
12-19 
l-54# 
1-69 
22-19 
38-18 
4-49 
4-36 
4-52 
4-63 
4-15 



24-15 

4-27* 
21-67 
23-63 
4-22* 



16-36 

4-81* 
10-21* 
17-17 

19-101* 

21-82* 

24-10 

26-26* 

29-35* 

31-88* 

35-24* 

38-38* 



24-31 
24-29 



25-43* 
25-70 



36-45 
24 -S# 

8-36 



1-58 

1 "70 

22-30 

39-18 

14-36 



6-28 



21-32 

23-64 
21-29 



16-37* 
4-90* 
10-26* 
17-28* 
19-124* 
21-90* 
24-14* 
26-33* 
29""49« 
31-98* 
35-37* 
39-12 



29-47 



8-63 



1-59 

1-71 

23-10# 

16-19 



6-33 



21-33 
21-70 

21-30 



16-38* 
5-28* 
10-41* 
17-35* 
20-17 
22-11 
24-38* 
26-41* 
29-56* 
33-14 
36-13 
39-22* 



36-17 



8-105 



1-60 
1-72 



19-42 



6-38 



21-39* 
21-72 

21-32* 



25-24 

10-44* 

17-56* 

20-23* 

22-15* 

25-13 

27-11 

30-29 

33-18* 

36-21* 

39-23* 



11-16 



1-61 



19-93 



38-27 



21-40* 
21-74 

21-33* 



8-39* 
10-64* 
18-8 
20-31* 
22-36* 
25-21* 
27-22* 
30-39* 
33-26* 
36-50* 
39-37* 



11-30 



1-62 



20-38 



39-27 



21-46 
21-75 

21-83 



27-17 

8-69* 
12-31* 
18-22* 

23-15 

25-31* 

27-42* 

30-79* 

33-44* 

37-12 



12-13 



1-63 



22-27 



21-48 
21-77* 

21-84 



8-110* 
12-33* 
19-19 
21-15 
23-20* 
25-38* 
28-17 
31-17 
34-11 
37-25* 



-37 



1-64 



21-50 
21-78* 

21-85* 



8- 
14- 
19- 
21- 



115* 
17* 
24* 
19* 



23-25* 
25-55* 
28-43* 
31-26* 
34-15* 
37-33* 



21-51 
21-83* 

21-S6# 



9-9 
15-19* 
19-55* 
21-31* 
23-40* 
25-76* 
28-63* 
31-40* 
34-21* 
37-38* 



21-53* 
21-84* 



9-19* 
16-13 
19-82* 
21-47* 
23-47* 
25-87* 
29-19 
31-58* 
34-30* 
38-12 



I 
t 



13-13 



14-13 



15-27 



1-65 



1-66 



1-67 
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Cross reference table (CREF V05. 05) 

. ADDR 1-19# 16-29 17-21 26-18 

MAP TO i-47# 4-81 5-2B 6-22 S~39 8-69 8-110 8-115 9-19 10-21 10-26 10-41 

10-44 12-31 12-33 14-17 15-19 16-17 17-28 17-35 19-24 19-55 19-82 19-85 

19-92 19-101 20-23 20-31 21-19 21-31 21-47 21-65 21-69 21~82 22-15 23-20 

23-25 23-40 23-47 23-55 24-14 25-21 25-31 25-38 25-55 25-76 26-15 26-26 

26-33 27-22 28-43 29-30 29-32 29-35 29-49 30-39 31-26 31-40 31-58 31-63 

31-84 31-88 33-18 33-26 34-15 34-21 35-16 35-24 36-21 37-25 37-33 38-22 
38-23 39-22 39-23 
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